R/summary.ordiellipse.R

In pattakosn/Rworkshop: Community Ecology Package

### Centres and areas of plotted ellipses. The principal axes of the
### conic (oblique ellipse) are found from the eigenvalues of the
### covariance matrix.
`summary.ordiellipse` <-
    function(object, ...)
{
    cnts <- sapply(object, function(x) x$center)
    areas <- sapply(object,
                    function(x)
                    prod(sqrt(eigen(x$cov)$values)) * pi * x$scale^2)
    rbind(cnts, `Area` = areas)
}