FormatOut <- function(R, p, lambda, z, datas, likelihood, all.dists.data, weights, key)
{
# Find which cluster the individual belongs to
clust <- apply(z, 1, which.max)
datas <- data.frame(datas, clust = clust, weights = weights, pvals = z,
ists = all.dists.data)
out <- list(key = key, R = R, p = p, lambda = lambda,
datas = datas, min.like = likelihood)
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.