如何在r中使用简单移动平均模型的预测函数？

Question

我想预测我的简单移动平均模型的未来值。我使用了以下程序：

x <- c(14,10,11,7,10,9,11,19,7,10,21,9,8,16,21,14,6,7)   
df <- data.frame(x)    
dftimeseries <- ts(df)  
library(TTR)      
smadf <- SMA(dftimeseries, 4) # lag is 4    
library(forecast)    
forecasteddf <- forecast(smadf, 4) # future 4 values     

运行上述代码时，我的预测值在接下来的4天内都是相同的。我编码正确吗？或者，我在概念上是错的吗？

指数移动平均线，加权移动平均线和ARIMA也是如此。

Answer 1

对于移动平均线模型，您可以阅读here

“由于该模型假定基础均值不变，因此未来任何期间的预测都是相同的......”。

因此，考虑到移动平均模式的特征，可以预期您的结果。

Answer 2

预测来自fpp2软件包，移动平均函数来自平滑软件包。

这是一个示例：

图书馆（顺畅） 库（fpp2） 图书馆（readxl） setwd（“ C：\ Users \ lferreira \ Desktop \ FORECASTING”）

数据<-read_xlsx（“ BASE_TESTE.xlsx”）  ts <-ts（data $ 1740，start = c（2014,1），frequency = 4）

  

fc <-预测（sma（ts），h = 3）   错误：提供的模型不是简单移动平均线！