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)
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)