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