Перекрестная проверка не работает - PullRequest
Новая
       9

Перекрестная проверка не работает

0 голосов
/ 13 мая 2019

Я пытаюсь сделать перекрестную проверку для 4 разных моделей.Цель состоит в том, чтобы предсказать следующие 10 данных.Мой набор данных содержит 180 записей.По какой-то причине мой код не работает.

py <- 171
ny <- 180
sum_squared_errors <- c(model1=0, model2=0, model3=0, model4=0)
for (k in py:ny) {
  train_set <- window(log_data1,end=k)
  test_set = window(log_data1,start=k,end=k)
  forecast1 <- sarima.for(train_set, n.ahead=10, p=1, d=1, q=1)<span class="math-container">$pred
  forecast2 <- sarima.for(train_set, n.ahead=10, p=1, d=2, q=1, P=1, D=1, Q=1, S=6)$</span>pred
  forecast3 <- sarima.for(train_set, n.ahead=10, p=2, d=2, q=2, P=1, D=1, Q=1, S=12)$pred
  forecast_matrix <- cbind(model1=forecast1,
                           model2=forecast2,
                           model3=forecast3)
  print(forecast_matrix)
  sum_squared_errors <- sum_squared_errors + apply(forecast_matrix, 2, function(col) {
    sum((col - test_set)^2)
  })
}

print(sum_squared_errors)

print(test_set)
print(train_set)
...