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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.