names(exercise)
plot(score~age, data=exercise)
plot(score~extime, data=exercise)
plot(extime~age, data=exercise)
#Model 1 : X1=age
lm(score~age, data=exercise)
model1 <- lm(score~age, data=exercise)
model1
names(model1)
model1$coefficients
model1s <- summary(model1)
names(model1s)
model1s$r.squared
model1anova <- anova(model1)
model1anova
model1formula <- score~age
lm(model1formula, data=exercise)
# Model 2 X1=extime
model2=lm(score~extime, data=exercise)
model2s=summary(model2)
model2anova=anova(model2)
model2anova
# Model 3 X1=age, X2=extime
model3=lm(score~ age + extime, data=exercise)
model3s=summary(model3)
model3anova=anova(model3)
model3anova
# Model 4 X1=extime, X2=age
model4=lm(score~ extime + age, data=exercise)
model4s=summary(model4)
model4anova=anova(model4)
model4anova