powered by
data(greenland)
year
airtemp
data(greenland) model <- lm(airtemp ~ year, data=greenland) plot(greenland$year, greenland$airtemp, xlab="Year", ylab="Air temperature") abline(model, col="red")
Run the code above in your browser using DataLab