# R code for problem 12.9
length=c(155,127,136,135,158,145,136,172,158,162,162)
jump=c(71,70,100,120,103.3,116,109.2,105,112.5,114,122.9)
plot(length,jump) # get scatterplot of data
summary(lm(jump~length)) # automatic least squares fit
b1=731.36/2094.55 # slope by hand
b1
b0=103.99-b1*149.64 # intercept by hand
b0
s1=sqrt(3219.99/10)
s1
s2=sqrt(2963.61/9)
s2