Nothing
set.seed(123)
K <- 2; p <- 2
X <- as.matrix(faithful)
# Obtain initial memberships based on the K-means algorithm
id.km <- kmeans(X, K)$cluster
# Run the EM algorithm for a Manly mixture model based on K-means solution
la <- matrix(0.1, K, p)
B <- Manly.EM(X, id.km, la)
Manly.plot(X, model = B, var1 = 1, x.mar = 1, xaxs="i", xaxt="n", xlab="", main = "")
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.