problem-3.28

problem-3.28  The calculations are performed as follows:
> lm(Female ~ Male, data = too.young)

Call:
lm(formula = Female ~ Male, data = too.young)
Coefficients:
(Intercept)         Male
      5.472        0.575
> plot(Female ~ Male, data = too.young)
> abline(lm(Female ~ Male, data = too.young))
> abline(7,1/2,lwd=2)
    
The result from the data set is a little more conservative than the rule of thumb, except for the teenage years.