Nothing
## ---- include=FALSE-----------------------------------------------------------
library(visreg)
knitr::opts_knit$set(aliases=c(h = 'fig.height', w = 'fig.width'))
## -----------------------------------------------------------------------------
fit <- lm(Ozone ~ Solar.R + Wind + Temp, data=airquality)
## ---- h=5, w=5----------------------------------------------------------------
visreg(fit, "Wind")
## -----------------------------------------------------------------------------
airquality$Heat <- cut(airquality$Temp, 3, labels=c("Cool","Mild","Hot"))
fit <- lm(Ozone ~ Solar.R + Wind*Heat, data=airquality)
## ---- h=4, w=9, out.width='100%'----------------------------------------------
visreg(fit, "Wind", by="Heat")
## ---- h=5, w=5----------------------------------------------------------------
visreg(fit, "Wind", by="Heat", overlay=TRUE)
## ---- h=5, w=6----------------------------------------------------------------
fit <- lm(Ozone ~ poly(Wind, 2)*poly(Temp, 2), data=airquality)
visreg2d(fit, "Wind", "Temp")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.