ozone <- airquality[complete.cases(airquality),]
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=ozone)
visreg2d(fit,x="Wind",y="Temp",plot.type="image")
visreg2d(fit,x="Wind",y="Temp",plot.type="persp")
## Requires the rgl package
visreg2d(fit,x="Wind",y="Temp",plot.type="rgl")
Run the code above in your browser using DataLab