### Creation of a partition
part <- partition(rep(c(1,2),4),2)
### Some trajectories
traj1 <- gald(nbEachClusters=2)
### Tranformation of part into a Clusterization
clusterization(part,traj1)
# Calinski criterion is arround 0.50...
### Some other trajectories
traj2 <- gald(nbEachClusters=4, functionClusters=list(function(t){5-t},function(t){5+t}))
### Tranformation of part into a Clusterization
clusterization(part,traj2)
# Calinski criterion is arround 0.15...
# part is probably a good partition for traj1, but not for traj2...
Run the code above in your browser using DataLab