# NOT RUN {
data(simData)
# define the algorithm's parameters
algo <- createAlgo()
# keep only 3 variables
model <- simData$model$unsupervised[c("Gaussian1", "Poisson1", "Categorical1")]
# run RMixtComp in unsupervised clustering mode + data as matrix
res <- mixtCompLearn(simData$dataLearn$matrix, model, algo, nClass = 2:4)
# plot
plotCrit(res)
# }
Run the code above in your browser using DataLab