Мне нужно построить продвинутую модель Arima. Значение v1 фиксировано для всех продвинутых моделей arima, но значение для xreg отличается (содержит 7 столбцов данных). Мне нужно извлечь средние остатки для этих 7 регрессий. До сих пор я придумал этот код.
model <- data[c(2:8)]
AdvancedMAE <- function(model){
p <- ncol(model)
p1 <- Arima(data$v1,order=c(0,3,1),xreg=as.matrix(model))
p2 <- data.frame(mean(abs(p1$residuals)))
p2
}
allvalue <- AdvancedMAE(model=model)
, но полученный результат является средним для всех данных, а не средним для каждых 7 l oop регрессий.