## 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
## Not run:
# plot(model)
# ## End(Not run)
## get summary
summary(model)
## print model
## Not run:
# print(model)
# ## End(Not run)
## get estimated missing values
missingValues(model)
Run the code above in your browser using DataLab