Сложность с использованием прогноза()

Question

Dataset Я пытаюсь предсказать задержки авиакомпании, и я испытываю трудности, когда я предсказываю значения моих тестовых данных. Выход выходит в бесконечный цикл, и я не могу понять, почему. Ниже приведен воспроизводимый код.

arrdelaymodel <- lm(ArrDelay ~ DepDelay + Distance + Distance*AirTime + HDAYS +DepTime*DepDelay) 
summary(arrdelaymodel) 

what.are.my.chances <- function(DepDelay, Distance, AirTime, DepTime, HDAYS){ 
new.values <- data.frame("DepDelay" = testing_data$DepDelay, "Distance" = testing_data$Distance, "AirTime"= 
         testing_data$AirTime, "DepTime"= testing_data$DepTime, "HDAYS"=testing_data$HDAYS) 
output <- predict(arrdelaymodel, newdata = new.values) 
return(output) 
} 

what.are.my.chances(DepDelay = 10, Distance = 200, AirTime = 100, DepTime = 1700, HDAYS= 7) 

Answer 1

Я думаю, что проблема в том, что вы ошибаетесь с подмножеством данных. Например. вы вызываете функцию с помощью DepDelay' = 10. Таким образом, функция затем пытается сделать следующее: testing_data$10.

Простое удаление 'testing_data $' часть должна решить проблему, т.е .:

new.values <- data.frame("DepDelay" = DepDelay, ..)

Удачи!