Nothing
library(condvis)
data(powerplant)
## fit a model
models <- list(
lm = lm(PE ~ ., data = powerplant),
lmquad = lm(PE ~ . + I(AT^2), data = powerplant))
## visualise sections along 'AT'
ceplot(data = powerplant, model = models, sectionvars = "AT")
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.