init-param+partition/                                                                               0000775 0001750 0001750 00000000000 12700472575 013627  5                                                                                                    ustar   poli                            poli                                                                                                                                                                                                                   init-param+partition/clusteringParametertest.R                                                      0000664 0001750 0001750 00000001514 12700472563 020670  0                                                                                                    ustar   poli                            poli                                                                                                                                                                                                                   library(Rmixmod);

createGaussianParameter <- function(nbCluster, pbDimension){
    proportions <- rep(1.0/nbCluster, nbCluster);
    means <- matrix(rep(0, nbCluster*pbDimension), nrow=nbCluster,
          ncol=pbDimension);
    for(k in 1:nbCluster){
        for(p in 1:pbDimension){
              means[k,p] = k;
        }
    }   
    variances <- list(c(1:nbCluster))
    for(k in 1:nbCluster){
        variances[[k]] <- diag(pbDimension)
    }   
    par <- new("GaussianParameter",proportions=proportions,
    mean=means, variance=variances);
    return(par);
}

data(iris)
data <- iris[,1:4]

param <- createGaussianParameter(3,4);

#strategy = new("Strategy", initMethod="parameter", parameter=param)
strategy <- mixmodStrategy(initMethod="parameter", parameter=param)
out <- mixmodCluster(data=data, nbCluster=3 , strategy=strategy);
                                                                                                                                                                                    init-param+partition/clusteringPartitiontest.R                                                      0000664 0001750 0001750 00000000436 12700472575 020726  0                                                                                                    ustar   poli                            poli                                                                                                                                                                                                                   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="partition", labels=labels)

out <- mixmodCluster(data, nbCluster=3, strategy=strategy);
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  