## A quantitative example with the famous geyser data set
data(geyser)
## add 10 missing values
x = geyser;
x[round(runif(5,1,nrow(geyser))), 1] <- NA
x[round(runif(5,1,nrow(geyser))), 2] <- NA
## with default values
model <- clusterDiagGaussian(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