小编Ada*_*ith的帖子

tf.train.get_global_step()TensorFlow 中该功能的用途是什么？在机器学习概念中它与它相当于什么？

所以我使用plmR中的包运行固定效果模型,我想知道如何比较两种模型中哪一种更合适.

例如,这是我构建的两个模型的代码:

library(plm)

eurofix <- plm(rlogmod ~ db+gdp+logvix+gb+i+logtdo+fx+ld+euro+core, 
               data=euro, 
               model="within")

eurofix2 <- plm(rlogmod ~ db+gdp+logvix+gb+i+logtdo+ld+euro+core, 
                data=euro,
                model="within")

我知道通过常规lm调用,我可以通过运行anova测试来比较两个模型,但在这种情况下似乎不起作用.我总是得到以下错误:

Error in UseMethod("anova") : 
  no applicable method for 'anova' applied to an object of class "c('plm', 'panelmodel')"

有人知道如何处理plm包装吗？Wald测试是否合适？

如何将夏威夷和阿拉斯加添加到以下代码（摘自Josh O'Brien在这里的答案：R中的国家代码的纬度经度坐标）？

library(sp)
library(maps)
library(maptools)

# The single argument to this function, pointsDF, is a data.frame in which:
#   - column 1 contains the longitude in degrees (negative in the US)
#   - column 2 contains the latitude in degrees

latlong2state <- function(pointsDF) {
    # Prepare SpatialPolygons object with one SpatialPolygon
    # per state (plus DC, minus HI & AK)
    states <- map('state', fill=TRUE, col="transparent", plot=FALSE)
    IDs <- sapply(strsplit(states$names, ":"), function(x) x[1])
    states_sp <- map2SpatialPolygons(states, IDs=IDs,
                     proj4string=CRS("+proj=longlat +datum=wgs84")) …

经过大量尝试弄清楚 .sty 是什么之后，如果我可以应用 .css 以及 YAML 可以做什么，我已经找到了一种方法，可以成功且简单地在 .PDF 输出中设置字体。

我转到 .Rmd 中的 YAML 标头并使用：

fontfamily:arev

我花了很长时间试图找出为什么sansfont不起作用，我认为原因是因为我的乳胶引擎设置为pdflatex, not xelatexor lualatex。我已经尝试了这两个选项，这导致进程挂起并不得不中止。我安装了 MiKTeX 2.9，所以问题一：

如何更改引擎以停止进程挂起？

其次，我看过一些文档，并且从理论上理解将文件夹中的 .sty 文件作为 LaTeX 渲染的一种设置文件的想法，尽管我一直无法找到它需要什么的直接解释包含，以及它可以做什么。那么问题二：

.sty 文件中包含哪些内容，它会为我的工作流程添加哪些内容？

第三，我终于找到这里，推高了线索我弗朗sansfont到fontfamily，虽然文件说，

fontfamily 用于 LaTeX 文档的字体包（使用 pdflatex）：TeXLive 有 bookman (Bookman)、utopia 或 Fourier (Utopia)、fouriernc (New Century Schoolbook)、times 或 txfonts (Times)、mathpazo 或 pxfonts 或 mathpple (Palatino)、libertine (Linux Libertine)、arev (Arev Sans) 和默认的 lmodern 等。

这有点帮助，但“除其他外”是非常模糊的，并不表示进一步的资源。

什么“其他”可用。如何检查当前设置中可能提供的内容？

编辑

额外的功劳：我还意识到ggplot2我正在为所有人编译报告的对象都有自己的字体集，在我的情况下，这可能是主题的设置。

将 …

我在网络服务器上有一个正在运行的闪亮应用程序，直到我上周才说它运行良好。现在，有时（我猜每两天）应用程序会停止工作并显示“应用程序无法启动”消息。当我重新启动闪亮的服务器时，就像我刚才所做的那样，一切又恢复正常了。

https://butterlab.imb-mainz.de/flydev/

有趣的是，我在该服务器上还有其他应用程序，即使该应用程序失败，它们也不会受到影响并且并行运行良好。

我在日志文件中找不到任何错误消息。我想知道：既然应用程序现在运行良好，我该如何调试它？

期待任何建议。

编辑：
发生错误后 我检查了shiny-server.log文件，发现以下消息：

[2018-06-14 14:29:20.080] [WARN] shiny-server - RobustSockJS collision: MqU4rgur76RPgjJIPr
[2018-06-15 01:28:18.398] [WARN] shiny-server - Error handling message: Error: Discard position id too big
[2018-06-15 02:00:10.358] [INFO] shiny-server - Error getting worker: Error: The application took too long to respond.
[2018-06-15 02:00:10.364] [INFO] shiny-server - Error getting worker: Error: The application took too long to respond.

每当有人访问服务器时，最后一条消息就会重复。

样本数据:
df <- data.frame(time=c(1,2,3,4,5,6, 7), status=c("good", "good", "good", "bad", "good", "good", "good"))

输出:

  time status
1    1   good
2    2   good
3    3   good
4    4    bad
5    5   good
6    6   good
7    7   good

我想添加一个新的statuschangeIF 列status与上面或下面的行不同.输出看起来像这样:

  time status statuschange
1    1   good   NA
2    2   good   TRUE
3    3   good   FALSE
4    4    bad   FALSE
5    5   good   FALSE
6    6   good   TRUE
7    7   good   NA

我有很多方法可以做到这一点,但我无法弄明白.任何帮助表示赞赏!

我想将我的数据框转换为适合瀑布图的格式。

我的数据框如下：

employee <- c('A','B','C','D','E','F', 
              'A','B','C','D','E','F',
              'A','B','C','D','E','F',
              'A','B','C','D','E','F')
revenue <- c(10, 20, 30, 40, 10, 40, 
              8, 10, 20, 50, 20, 10,
              2,  5, 70, 30, 10, 50,
             40,  8, 30, 40, 10, 40)
date <- as.Date(c('2017-03-01','2017-03-01','2017-03-01',
                  '2017-03-01','2017-03-01','2017-03-01',
                  '2017-03-02','2017-03-02','2017-03-02',
                  '2017-03-02','2017-03-02','2017-03-02',
                  '2017-03-03','2017-03-03','2017-03-03',
                  '2017-03-03','2017-03-03','2017-03-03',
                  '2017-03-04','2017-03-04','2017-03-04',
                  '2017-03-04','2017-03-04','2017-03-04'))
df <- data.frame(date,employee,revenue)

         date employee revenue
1  2017-03-01        A      10
2  2017-03-01        B      20
3  2017-03-01        C      30
4  2017-03-01        D      40
5  2017-03-01        E      10
6  2017-03-01        F      40
7  2017-03-02        A       8
8  2017-03-02 …

我正在尝试编写一个公式来确定一个a最小化函数输出的值myfun(即a-fptotal).MWE:

c <- as.matrix(c(.25,.5,.25))
d <- as.matrix(c(10000,12500,15000))
e <- 700
f <- 1.1
tr <- .30

myfun <- function(a) {
   b <- max(a-e,0)
   df <- data.frame(u1=c(c*b*.40),u2=c(c*b*.60))
   df$year <- 1:nrow(df)
   df$factor <- 1/(f)^df$year
   df$d <- d
   df$t <- (df$d-df$u1-df$u2)*tr
   df$f <- df$d-df$t
   df$fp <- df$f*df$factor
   fptotal <- sum(df$fp)
   return(a-fptotal) # what is a good approach to minimize this?
}

我尝试过这样的事情没有任何成功:

o2 <- optimize(myfun, lower = 0, upper = 30000)

正确的答案应该是28355:

myfun(28355)  
## [1] …

我的问题涉及一些应该相当简单的问题,但我无法使其发挥作用.我的意思是,你可以计算x和y,然后随着剧情它们plot的功能.但这可以使用该curve功能完成吗？

我想绘制以下R函数f2:

n <- 1
m <- 2
f2 <- function(x) min(x^n, x^(-m))

但是这段代码失败了:

curve(f2, 0, 10)

有什么建议？