# install.packages("CHAID",
# repos="http://R-Forge.R-project.org")
# requires "partykit"
# create unweighted data table
wtab <- as.data.frame(Titanic)
index <- rep(1:nrow(wtab), wtab$Freq)
utab <- wtab[index,]
#
library("CHAID")
chaid(Survived~Class+Sex+Age, data=utab)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.