Nothing
orderlikL<- function(x, z, nbcores)
{
g <- length(unique(z))
loglikwrapper <-function(j,x,g){return(mixmodLearn(x[,j], knownLabels=z, models=mixmodGaussianModel(family = "all"))@bestResult@likelihood)}
return(order(simplify2array(mclapply(X=1:ncol(x),
FUN = loglikwrapper,
x=x,
nbcluster=g,
mc.preschedule = TRUE,
mc.silent = TRUE,
mc.cleanup = TRUE,
mc.cores = min(nbcores, ncol(x)))), decreasing = TRUE))
}
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.