powered by
Wins
str(Wins) attach(Wins) plot(era,wins) model <- lm(wins~era) abline(model) summary(model) detach(Wins) remove(model)
Run the code above in your browser using DataLab