r语言 - 在时间序列分析中计算 rmse 时收到错误消息

Question

我正在尝试使用 Keras 在 R 中复制这个时间序列分析示例(请参阅此处(，不幸的是，我在计算第一个平均 rmes 时收到错误消息

coln <- colnames(compare_train)[4:ncol(compare_train)]
cols <- map(coln, quo(sym(.)))
rsme_train <-
  map_dbl(cols, function(col)
    rmse(
      compare_train,
      truth = value,
      estimate = !!col,
      na.rm = TRUE
    )) %>% mean()
rsme_train

错误信息：

is_symbol(x( 中的错误：找不到对象".">

帖子底部有一些有用的评论，但新版本的dplyr并没有真正的帮助。有什么建议可以解决这个问题吗？

Answer 1

我偶然发现了同样的问题，所以这里有一个接近原始代码的解决方案。

cols的转换不是必需的，因为!!已经可以使用字符向量。您可以将代码更改为

coln <- colnames(compare_train)[4:ncol(compare_train)]
rsme_train <-
    map_df(coln, function(col)
        rmse(
            compare_train,
            truth = value,
            estimate = !!col,
            na.rm = TRUE
        )) %>% 
    pull(.estimate) %>%
    mean()
rsme_train

您可能还想检查 tidyverse 的更新，只是为了确定。