data(ligophorus_tpsdata)
#Simultaneously visualise the first four specimen slides
par(mfrow=c(2,2))
par(mar=c(3,3,2,1.5))
mapply(function(k) polyVis(k, spacing=300, havelist=TRUE,
listdata=ligophorus_tpsdata$grandis), k=1:4)
Run the code above in your browser using DataLab