在时间序列分析中计算rmse时获取错误消息

Question

我正在尝试使用Keras（请参阅Here）在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的更新。