R kode til eksempel 12.5

# Vi leser inn CO2 konsentrasjon (x) og masse av tr?rne (y):

CO2=c(408,408,554,554,680,680,812,812)

mass=c(1.1,1.3,1.6,2.5,3.0,4.3,4.2,4.7)

# Vi finner minste kvadraters estimater:

fit=lm(mass~CO2)

summary(fit)

# Vi plotter dataene og den tilpassede linja::

plot(CO2,mass)

abline(fit)