powered by
Gym
str(Gym) attach(Gym) plot(age,number) model <- lm(number~age) abline(model) cor(age,number) detach(Gym)
Run the code above in your browser using DataLab