使用带R的Tableau添加虚拟变量后的预测

我可以使用tableau中的

forecast（）

函数进行预测。我有每日每小时的数据（电力需求）。以前我使用的代码如下：

SCRIPT_REAL("library(forecast);
    jjearnts <- msts(.arg1, seasonal.periods=c(24, 7*24, 365*24));
    fit <- tbats(jjearnts);
    fcast <- forecast(fit,h=.arg2[1]);
    n<-length(.arg1);
    append(.arg1[(.arg2[1]+1):n],fcast$mean, after = n-.arg2[1])",
    SUM([ Load demand(electricity)]),[ Parameter])

SCRIPT_REAL("library(forecast);
    modelfitsample <- data.frame(.arg1,Weekday=rep(1:7,7);
    xreg <- cbind(Weekday=model.matrix(~as.factor(modelfitsample$Weekday));
    xreg <- xreg[,-1];
    colnames(xreg) <- c("Mon","Tue","Wed","Thu","Fri","Sat");
    jjearnts <-ts(modelfitsample$.arg1,frequency=24*365,start=c(2008,90));
    fcast <- forecast(jjearnts, h=.arg2[1]);
    n<-length(.arg1);
    append(.arg1[(.arg2[1]+1):n],fcast$mean, after = n-.arg2[1])",
    SUM([Load demand(electricity)]),[ Parameter])

SCRIPT\u REAL（“库（预测）”；
感谢您的编辑…我正在等待回复：（运行第二个代码对我来说非常重要…帮帮我！！（1）您收到错误消息还是什么“不起作用”？（2）你应该提供一个数据集，这样人们可以重现错误并使用代码。我没有问题来共享数据…实际上第二个代码不正确，所以我无法运行…我有4年的数据…通过查看第二个代码，任何专家都可以很容易地发现错误…嗯，似乎没有。或者你看到了任何答案吗？也许你没有o跳过
“
s->
c（\“Mon\”…）
或使其成为
c（'Mon'…）
。你称之为专家的人可能不使用Tableau。。。