#From the work of John Verzani
#Simple Regression

age <- c(18,23,25,35,65,54,34,56,72,19,23,42,18,39,37)
maxhr = c(202,186,187,180,156,169,174,172,153,199,193,174,198,183,178)
plot(age,maxhr) # make a plot
abline(lm(maxhr ~ age)) # plot the regression line
lm(maxhr ~ age) # the basic values of the regression analysis