,這是我使用的代碼,但我不能給你我使用的數據集.. daten1 < -test
final.aic <- Inf
final.order <- c(0,0,0)
for (p in 0:2) for (q in 0:2) for(z in 0:1) {
current.aic <- AIC(arima(daten1, order=c(p, z, q)))
if (current.aic < final.aic) {
final.aic <- current.aic
final.order <- c(p,z, q)
final.arima <- arima(daten1, order=final.order)
}
}
final.aic
final.order
final.arima
acf(resid(final.arima))
Box.test(resid(final.arima), lag=20, type="Ljung-Box")
############RMSE und R² testen für ARIMA Model###############
ffa<-fitted(final.arima)
daten1.mean<-mean(daten1)
R1<-sum((ffa-daten1.mean)^2)
R2<-sum((daten1-ffa)^2)
Rsquared<-R1/(R1+R2)
Rsquared
你能發佈你的數據和代碼嗎?我試着用'usconsumption'數據集作爲例子,它爲我工作。 –