如何在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”）

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

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