powered by
Nfldraft
str(Nfldraft) attach(Nfldraft) plot(forty,Rating) model <- lm(Rating~forty) abline(model) anova(model) summary(model) detach(Nfldraft)
Run the code above in your browser using DataLab