# NOT RUN {
## 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))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab