## for quantitative case
## Not run:
# data(DebTrivedi)
# dt <- DebTrivedi[, c(1, 6,8, 15)]
# model <- clusterPoisson(iris[1:4], 3, strategy = clusterFastStrategy())
# plot(model)
# plot(model, c(1,2))
# ## End(Not run)
Run the code above in your browser using DataLab