0

问题：我有以下 R 代码（如下）：它不适用于“my.list”中的“x”=“ARIMA”和“ETS”。这就是问题所在：“fabletools::model(arima_auto = fable::ARIMA(Trips))”= 它可以工作，但是这个：“fabletools::model(arima_auto = fable::x(Trips))”没有用。有谁知道我的问题的解决方案。在R中甚至可能吗？

library(tidyverse)
library(fable)
library(fabletools)
library(tsibble)

tourism <- tsibble::tourism 

my.list <- list("ARIMA","ETS")

my.list[[1]] ## "ARIMA"
my.list[[2]] ## "ETS"

f_test <- function(.df1,.n){

  x <- .df1[[.n]][[1]] ### 1) "ARIMA", "ETS"
  print(x)
  
  fit <- tourism %>%
    dplyr::filter(Region == "Adelaide") %>%
    #fabletools::model(arima_auto = fable::ARIMA(Trips)) ### it works
    fabletools::model(arima_auto = fable::x(Trips)) ### didn't work
  
  assign("fit", fit, envir= globalenv())
} 

purrr::map(.x = seq(my.list), .f = ~(f_test(my.list, Counter <- .x)))
4

1 回答 1

1

当你打电话x(Trips)时，你的 x 是字符向量"ARIMA"。R不知道是什么[character vector](Trips)意思。这就像试图调用"Alice"(y)并期望 R 将"Alice"其视为一个函数，即使它显然不是一个函数。

您想要的是 R 将字符串交换"ARIMA"为其相应函数的一种方式。这是match.fun为了什么。试试这个：

working<-match.fun(x)
fabletools::model(arima_auto = working(Trips))

请注意，与您的原始方法不同，我们不需要为此使用任何名称空间。好的做法是找到一种方法来做到这一点，例如working<-get(x,envir = environment(fable))，但我们在这里不需要它。

于 2021-03-11T19:42:01.267 回答