Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.width=5, fig.height=5 ,fig.align="center"
)
fpath <- ""
## ----eval=F-------------------------------------------------------------------
# library(parsnip)
# library(MASS)
# library(condvis2)
# Boston1 <- Boston[,9:14]
#
# fitlm <-
# linear_reg() %>%
# set_engine("lm") %>%
# fit(medv ~ ., data = Boston1)
#
# fitrf <- rand_forest(mode="regression") %>%
# set_engine("randomForest") %>%
# fit(medv ~ ., data = Boston1)
#
## ----eval=F-------------------------------------------------------------------
# condvis(Boston1, model=list(lm=fitlm,rf=fitrf), response="medv", sectionvars="lstat")
## ----eval=F-------------------------------------------------------------------
# condvis(Boston1, model=list(lm=fitlm,rf=fitrf), response="medv", sectionvars="lstat",
# predictArgs=list(list(pinterval="confidence"), NULL))
## ----eval=F-------------------------------------------------------------------
# clmodel <-
# svm_poly(mode="classification") %>%
# set_engine("kernlab") %>%
# fit(Species ~ ., data = iris )
## ----eval=F-------------------------------------------------------------------
# condvis(iris, model=clmodel, response="Species", sectionvars=c("Petal.Length", "Petal.Width"), pointColor="Species")
## ----eval=F-------------------------------------------------------------------
# library(survival) # for the data
# smodel <-
# surv_reg() %>%
# set_engine("survival") %>%
# fit(Surv(time, status) ~ inst+age+sex+ph.ecog, data=lung)
#
# condvis(na.omit(lung), smodel, response="time", sectionvars = c("inst","sex"), conditionvars=c("age","ph.ecog"))
#
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.