data(bot)
botF <- eFourier(bot, nb.h=32)
ep <- ellipse.par(botF, 1:5, 64)
names(ep)
layout(matrix(1:4, ncol=2, byrow=TRUE))
boxplot(ep$a, log="y", main="1/2 Major axes")
boxplot(ep$b, log="y", main="1/2 minor axes")
boxplot(ep$e, , main="Eccentricities")
boxplot(ep$phi, main="Ellipse angles")
Run the code above in your browser using DataLab