ld <- gald()
kml(ld,,5)
par(ask=TRUE)
### Default ploting
plot(ld)
### Plot all the trajectories
plotTraj(ld)
### Plot by subgroups
plotSubGroups(ld)
### Calinski and all at once
plotAll(ld,point="symbols",size=1)
par(ask=FALSE)
Run the code above in your browser using DataLab