Вопрос: Какое прогнозируемое количество повторений для людей с длиной руки 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' не найден