请教大家关于非DataFrame数据的输出问题:
Model fit之后,FORECAST的数据已经顺利存到EXCEL里了。但是model result无法输出,应为不是DataFrame格式。错误如下。之后,我打算把结果转换成DATAFRAME的格式,但是又出错。
不知道大家有什么好办法吗?多谢
> fit1
Point Forecast Lo 80 Hi 80 Lo 95 Hi 95
Oct 2014 19.98760 15.67348 24.30172 13.38972 26.58548
Nov 2014 22.19595 17.84443 26.54746 15.54088 28.85102
Dec 2014 23.58176 19.19311 27.97041 16.86990 30.29362
Jan 2015 21.35422 16.92870 25.77975 14.58597 28.12248
Feb 2015 21.36409 16.90193 25.82624 14.53981 28.18836
Mar 2015 22.41422 17.91568 26.91276 15.53430 29.29414
Apr 2015 22.47793 17.94325 27.01262 15.54273 29.41314
May 2015 21.07531 16.50471 25.64591 14.08517 28.06545
Jun 2015 22.83221 18.22591 27.43850 15.78749 29.87693
Jul 2015 19.90376 15.26200 24.54553 12.80479 27.00273
Aug 2015 19.82656 15.14953 24.50358 12.67367 26.97944
Sep 2015 20.63070 15.91858 25.34282 13.42413 27.83726
Oct 2015 21.41900 16.67205 26.16596 14.15916 28.67885
Nov 2015 23.62736 18.84576 28.40895 16.31454 30.94017
Dec 2015 25.01317 20.19713 29.82920 17.64768 32.37865
Jan 2016 22.78563 17.93535 27.63591 15.36776 30.20349
Feb 2016 22.79549 17.91115 27.67983 15.32554 30.26544
Mar 2016 23.84563 18.92742 28.76384 16.32387 31.36739
Apr 2016 23.90934 18.95743 28.86125 16.33605 31.48263
May 2016 22.50672 17.52130 27.49214 14.88217 30.13126
Jun 2016 24.26362 19.24485 29.28238 16.58808 31.93915
Jul 2016 21.33517 16.28323 26.38710 13.60890 29.06144
Aug 2016 21.25796 16.17302 26.34290 13.48122 29.03471
Sep 2016 22.06210 16.94427 27.17993 14.23506 29.88915
> write.xlsx(fit1,file="E:/Result.xls",sheetName=Facility,append=TRUE)
> fit1$model
ETS(A,A,A)
Call:
hw(x = DataSource, seasonal = "additive")
Smoothing parameters:
alpha = 0.1317
beta = 1e-04
gamma = 1e-04
Initial states:
l = 6.6909
b = 0.1193
s=2.5289 1.2623 -0.8267 -1.4961 -2.1804 -1.9843
1.0637 -0.5741 0.9488 1.0036 0.0724 0.182
sigma: 3.3663
AIC AICc BIC
873.2087 878.6487 917.4035
> write.xlsx(fit1$model,file="E:/Result.xls",sheetName="Model",append=TRUE)
Error in as.data.frame.default(x[], optional = TRUE, stringsAsFactors = stringsAsFactors) :
cannot coerce class ""ets"" to a data.frame
> as.data.frame(fit1$model)
Error in as.data.frame.default(fit1$model) :
cannot coerce class ""ets"" to a data.frame