5.final\original\trend\irregular\residuals
SARIMA_季节调整_时间序列_模型结果调用
描述
从“seas(m)”对象中提取主要时间序列的函数:拟合结果、原始数据、趋势数据、不规则数据、残差。
代码①
library(seasonal) #导入包
m <- seas(AirPassengers) #SARIMA
data.frame(summary(m))
结果①
代码②
head(data.frame(m),6)
#data.frame(m)$seasonal#SARIMA中的季节项
结果②
代码③
# 组合图
attach(mtcars)
par(mfrow=c(2,1))
plot(data.frame(m)$date,data.frame(m)$final,xlab ='时间',type="l",ylab='CPI',main='拟合值')
plot(data.frame(m)$date,data.frame(m)$trend,xlab ='时间'<