problem-10.29

problem-10.29  This can be done as follows:
> n = length(year)
> yt = log(Nt[-1]/Nt[-n])
> nt = Nt[-n]
> detach(baycheck)
> lm(yt ~ nt)
  Coefficients:
(Intercept)           nt
   0.345810    -0.000409
    
So [^r] = \betahat0 = 0.34 and [^K] = - [^r]/\betahat1 = 845.5.