这似乎有效。
library(forecast)
示例 1
auto.arima(wineind)
# Series: wineind
# ARIMA(1,1,2)(0,1,1)[12]
#
# Coefficients:
# ar1 ma1 ma2 sma1
# 0.4299 -1.4673 0.5339 -0.6600
# s.e. 0.2984 0.2658 0.2340 0.0799
#
# sigma^2 estimated as 5399312: log likelihood=-1497.05
# AIC=3004.1 AICc=3004.48 BIC=3019.57
arima(wineind,
order=auto.arima(wineind)$arma[c(1, 6, 2)],
seasonal=list(order=auto.arima(wineind)$arma[c(3, 7, 4)],
period=auto.arima(wineind)$arma[5]))
# Call:
# arima(x = wineind, order = auto.arima(wineind)$arma[c(1, 6, 2)],
# seasonal = list(order = auto.arima(wineind)$arma[c(3, 7, 4)],
# period = auto.arima(wineind)$arma[5]))
#
# Coefficients:
# ar1 ma1 ma2 sma1
# 0.4299 -1.4673 0.5339 -0.6600
# s.e. 0.2984 0.2658 0.2340 0.0799
#
# sigma^2 estimated as 5266773: log likelihood = -1497.05, aic = 3004.1
示例 2
auto.arima(woolyrnq)
# Series: woolyrnq
# ARIMA(1,0,0)(0,1,1)[4]
#
# Coefficients:
# ar1 sma1
# 0.8077 -0.6669
# s.e. 0.0629 0.0944
#
# sigma^2 estimated as 175880: log likelihood=-858
# AIC=1722 AICc=1722.21 BIC=1730.23
arima(woolyrnq,
order=auto.arima(woolyrnq)$arma[c(1, 6, 2)],
seasonal=list(order=auto.arima(woolyrnq)$arma[c(3, 7, 4)],
period=auto.arima(woolyrnq)$arma[5]))
# Call:
# arima(x = woolyrnq, order = auto.arima(woolyrnq)$arma[c(1, 6, 2)],
# seasonal = list(order = auto.arima(woolyrnq)$arma[c(3, 7, 4)],
# period = auto.arima(woolyrnq)$arma[5]))
#
# Coefficients:
# ar1 sma1
# 0.8077 -0.6669
# s.e. 0.0629 0.0944
#
# sigma^2 estimated as 172819: log likelihood = -858, aic = 1722
只需根据您的需要调整 auto.arima 部分中的特殊参数即可。