data(meau) env <- meau$env sites <- meau$design$site envpca <- dudi.pca(env, scannf = FALSE) betsite <- bca(envpca, sites, scannf = FALSE) plot(betsite, row.col=1:6) plot(betsite, row.pellipse.col=1:6)