Nothing
library(Rmixmod)
data(iris)
data <- iris[, 1:4]
labels <- c(rep(1, 40), rep(2, 70), rep(3, 40))
# strategy = new("Strategy", initMethod="partition", labels=labels)
strategy <- mixmodStrategy(initMethod = "label", labels = labels)
out <- mixmodCluster(data, nbCluster = 3, strategy = strategy)
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.