library(condvis)
## demo requires 'e1071' package
library(e1071)
data(wine)
wine$Class <- as.factor(wine$Class)
## fit a model
model <- svm(Class ~ Alcohol + Malic + Ash + Magnesium +
Phenols + Flavanoids, data = wine)
## visualise sections along 'Alcohol' and 'Phenols'
ceplot(data = wine, model = model, sectionvars = c("Alcohol", "Phenols"),
threshold = 1.5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.