## A quantitative example with the birds data set
data(birds)
## add 10 missing values
x = birds;
x[round(runif(5,1,nrow(birds))), 2] <- NA
x[round(runif(5,1,nrow(birds))), 4] <- NA
## with default values
model <- clusterCategorical(data=x, nbCluster=2:3, strategy = clusterFastStrategy())
## use graphics functions
plot(model)
## get summary
summary(model)
## print model
print(model)
## get estimated missing values
missingValues(model)
Run the code above in your browser using DataLab