10. Analyze the 25 years of moose population data in the code chunk below to estimate K mathematically using a regression analysis. You will have to (1) compute lambda for each of 24 years, (2) convert this to r, (3) use regression with r as the dependent variable and N as the independent variable, (4) understand that the regression result correspond to a line and use the equation for that line to find the carrying capacity (hint: an intercept is involved because what must r be at carrying capacity?). (10 points *5 of which are extra credit*) ```{r} Moose <- data.frame(Year=1:25,N=c(50,83, 128, 176, 226, 241, 267,275,269,248,253,278,248,287,257,242,272,287,282,285,285,297,256,293,299))