Answer:
load("tempdata.RData")
range(tempdata$temp)
## [1] 61.6 74.0
max(tempdata$year)
## [1] 2015
max(tempdata$temp)
## [1] 74
min(tempdata$temp)
## [1] 61.6
plot(tempdata$year, tempdata$temp, xlab = "Recorded Years of October", ylab = "Recorded Average Temperatures in Fahrenheit", main = "Average Recorded Temperature of October in Los Angeles")
model3 <- lm(tempdata$temp ~ tempdata$year, data = tempdata)
abline(model3, col = "red", lw = 3)
Explanation: