Nothing
library(Rmixmod)
data(heterodatatest)
data(heterodatatrain)
# learn <- mixmodLearn(heterodatatrain[-1], knownLabels = heterodatatrain$V1)
# predict <- mixmodPredict(heterodatatest[-1], classificationRule = learn["bestResult"])
# missclassified <- sum(as.integer(predict@partition) - as.integer(heterodatatest$V1))
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.