ошибка в данных не найдена при попытке сделать прогноз - PullRequest
0 голосов
/ 25 января 2019

Вопрос: Какое прогнозируемое количество повторений для людей с длиной руки 30 дюймов? Обсудите адекватность линейного приближения.

Но у меня есть проблемы при попытке предсказать данные. BenchPress не может быть найден.

combine <- read.csv("C:/Users/Yuxi Liu/Desktop/nfl_combine2017.csv")
cols <- c("ArmLength", "BenchPress")
x <- combine$ArmLength 
y <- combine$BenchPress

combine_model = lm(ArmLength ~ BenchPress, data = combine)
confint(combine_model, conf.level=0.95)
summary((combine_model)$coefficients)

plot(ArmLength~ BenchPress, data = combine,
     xlab = "Arm Length",
     ylab = "Bench Press",
     main = "Arm Length vs Bench Press",
     pch = 10,
     cex = 1,
     col = "grey")
abline(lm(combine_model))

combine_model = lm(ArmLength ~ BenchPress, data = combine)
new.combine <- data.frame(x=c(30))
predict(combine_model, new.combine, se.fit = TRUE)

Ошибка в eval (predvars, data, env): объект 'BenchPress' не найден

...