### Empty partition
partition()
### Small partition
partition(clusters=c("A","B","A","C","C"))
### Random partition
partition(clusters=LETTERS[floor(runif(100,1,5))])
### Partition that clusters correctly some data
### Quality criterion are high
data <- gald()["traj"]
partition(clusters=rep(1:4,each=50),data)
### Partition that does not cluster correctly the data
### Quality criterion are low
partition(clusters=rep(1:4,50),data)
Run the code above in your browser using DataLab