fit <- lm(
Ozone ~ Solar.R + Wind + Temp +
I(Wind^2) + I(Temp^2) + I(Wind * Temp) +
I(Wind * Temp^2) + I(Temp * Wind^2) +
I(Temp^2 * Wind^2),
data = airquality
)
v <- visreg2d(fit, x = "Wind", y = "Temp", plot = FALSE)
persp(v)
airquality$Heat <- cut(airquality$Temp, 3, labels = c("Cool", "Mild", "Hot"))
fit2 <- lm(Ozone ~ Solar.R + Wind * Heat, data = airquality)
visreg2d(fit2, "Heat", "Wind", plot = FALSE) |> persp(theta = 230)
Run the code above in your browser using DataLab