> n = length(year) > yt = log(Nt[-1]/Nt[-n]) > nt = Nt[-n] > detach(baycheck) > lm(yt ~ nt) Coefficients: (Intercept) nt 0.345810 -0.000409