library(rpart)
data(ptitanic, package = 'rpart.plot')
if (interactive()){
rpart(survived ~ ., data = ptitanic) %>%
fdPanelImportance %>%
fdPreview
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.