library(cluster)
data(ligophorus_tpsdata)
#A poor quality specimen (dissimilar dorsal anchors)
polyVis(5, havelist=TRUE, listdata=ligophorus_tpsdata$bantingensis)
#A good quality specimen
polyVis(18, havelist=TRUE, listdata=ligophorus_tpsdata$johorensis)
Run the code above in your browser using DataLab