clusLd <- as.cld(gald())
kml(clusLd,,1)
par(ask=TRUE)
### Default ploting
plot(clusLd)
### Only the trajectories in black
plot(clusLd,type="n",col.mean="1",type.mean="l")
### Only the mean trajectories, with letters (for publication ?)
plot(clusLd,type="n",col.mean="1",type.mean="b",cex=2)
### All at once.
plot(clusLd,col="clusters",col.mean="clusters",type.mean="l",legend=FALSE)
par(ask=FALSE)
Run the code above in your browser using DataLab