data(macf.dat)
n<-dim(macf.dat)[3]
par(pty="s")
plot(macf.dat[,1:2,1],xlim=c(0,180),ylim=c(-50,130),type="n",xlab="",ylab="")
for (i in 1:n){
points(macf.dat[,1:2,i],pch=c(1:7))
}
testmeanshapes(macf.dat,macm.dat)
Run the code above in your browser using DataLab