## A quantitative example with the heart disease data set
data(HeartDisease.cat)
data(HeartDisease.cont)
## with default values
ldata = list(HeartDisease.cat, HeartDisease.cont);
models = c("categorical_pk_pjk","gaussian_pk_sjk")
model <- clusterMixedData(ldata, models, nbCluster=2:5, strategy = clusterFastStrategy())
## get summary
summary(model)
## get estimated missing values
missingValues(model)
if (FALSE) {
## print model
print(model)
## use graphics functions
plot(model)
}
Run the code above in your browser using DataLab