data(mite)
data(mite.env)
## rda
m <- rda(decostand(mite, "hell") ~ ., mite.env)
RsquareAdj(m)
## cca
m <- cca(decostand(mite, "hell") ~ ., mite.env)
RsquareAdj(m)
## default method
RsquareAdj(0.8, 20, 5)
Run the code above in your browser using DataLab