# NOT RUN {
data(simData)
# define the algorithm's parameters: you can use createAlgo function
algo <- list(nbBurnInIter = 50,
nbIter = 50,
nbGibbsBurnInIter = 50,
nbGibbsIter = 50,
nInitPerClass = 20,
nSemTry = 20,
confidenceLevel = 0.95)
# run RMixtComp for learning using only 3 variables
resLearn <- mixtCompLearn(simData$dataLearn$matrix, simData$model$unsupervised[1:3], algo,
nClass = 2:3, nRun = 2, nCore = 1)
summary(resLearn)
plot(resLearn)
# run RMixtComp for predicting
resPred <- mixtCompPredict(simData$dataPredict$matrix, simData$model$unsupervised[1:3], algo,
resLearn)
partitionPred <- getPartition(resPred)
print(resPred)
# }
Run the code above in your browser using DataLab