## A quantitative example with the DebTrivedi data set.
data(DebTrivedi)
dt <- DebTrivedi[1:500, c(1, 6,8, 15)]
model <- clusterPoisson( data=dt, nbCluster=2
, models=clusterPoissonNames(prop = "equal")
, strategy = clusterFastStrategy())
## use graphics functions
if (FALSE) {
plot(model)
}
## get summary
summary(model)
## print model
if (FALSE) {
print(model)
}
## get estimated missing values
missingValues(model)
Run the code above in your browser using DataLab