## 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)
## Not run:
# ## print model
# print(model)
# ## use graphics functions
# plot(model)
# ## End(Not run)
Run the code above in your browser using DataLab