Raffaele Martino
11/21/2020
The analysis is aimed at determining whether it is better to use only air temperature or also the wind speed
modelTemp <- lm(Ozone ~ Temp, data = airquality)
trainPredictionTemp <- predict(modelTemp, newdata = airquality)
sqrt(sum((trainPredictionTemp-airquality$Ozone)^2, na.rm = TRUE))
[1] 253.1993
modelMLR <- lm(Ozone ~ Temp + Wind, data = airquality)
trainPredictionMLR <- predict(modelMLR, newdata = airquality)
sqrt(sum((trainPredictionMLR-airquality$Ozone)^2, na.rm = TRUE))
[1] 232.3209
Using also wind speed increases the accuracy of the prediction