表中ARIMA模型的R脚本

我是Tableau的新手，我正在尝试为ARIMA模型编写R脚本，但我遇到了错误

我写了这段代码

SCRIPT_REAL("
    library(forecast)
    data <- ts(.arg2,start=c(2003,1),frequency=12);
    ARIMAfit <- auto.arima(log10(data),approximation=FALSE,trace=FALSE);
    fcast <- forecast(ARIMAfit,h=5);

",

ATTR( MONTH( [New] ) ), SUM( [Number of Tractor Sold] ) )

任何类型的帮助或截取的代码都将对我非常有帮助。谢谢…

试试这个，它会有用的

SCRIPT_REAL("
    library(forecast)
    data <- ts(.arg1,start=c(2003,1),frequency=12);
    ARIMAfit <- auto.arima(log10(data),approximation=FALSE,trace=FALSE);
    fcast <- forecast(ARIMAfit,h=5);", SUM( [Number of Tractor Sold] ) )

SCRIPT\u REAL（“
图书馆（预测）
数据您可能需要将结果作为结果的最后一行返回。因此，只需在底部添加一个fcast即可。@lmkirvan您能告诉我如何在代码底部添加fcast吗？这将对我非常有帮助，因为我对tableau脚本一无所知。我正在打电话，但我相信您将返回tableau代码的最后一行，即赋值语句。您想返回分配的数字的实际向量。因此只需添加一行即可将向量打印到控制台。在这里，我认为您已将其保存为fcast（或fcast对象的某些部分）。如果不起作用，请告诉我，我将在计算机前进行测试。@lmkirvan不，它不起作用。谢谢。。
SCRIPT_REAL("
    library(forecast)
    data <- ts(.arg1,start=c(2003,1),frequency=12);
    ARIMAfit <- auto.arima(log10(data),approximation=FALSE,trace=FALSE);
    fcast <- forecast(ARIMAfit,h=5);", SUM( [Number of Tractor Sold] ) )

SCRIPT_STR(
"rmse <- function(error){    sqrt(mean(error^2))} 
mae <- function(error){    mean(abs(error))}
tsfa1 = ts(.arg1,frequency=12,start = c(2012,6))

library(forecast)
fit1 = Arima(tsfa1, order=c(0,0,0),seasonal=c(1,1,0), include.mean = FALSE,include.drift=TRUE)
fcast<- forecast(fit1)
paste(fcast$fit, fcast$residuals, sep='~')",SUM([NET]))