"cluster2keys" <-
function(c) {
if (class(c)[1] == "kmeans") {c <- c$cluster
p <- max(c)
v <- length(c)
keys <- matrix(rep(0,p*v),ncol=p)
for (i in 1:v) {keys[i,c[i]] <- 1}
} else {if(length(class(c)) >1) {if (class(c)[2]=="iclust") {keys <- factor2cluster(c)}
}}
return(keys) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.