#2D example : female and male apes   (cf. Dryden and Mardia, 2016)
data(pongof.dat)
data(pongom.dat) 
data(panm.dat)
data(panf.dat)
apes   <- groupstack( pongof.dat , pongom.dat , panm.dat, panf.dat )
shapes.cva( apes$x, apes$groups) 
Run the code above in your browser using DataLab