## symmetric CoCA
data(beetles)
data(plants)
## log transform the bettle data
beetles <- log(beetles + 1)
## fit the model
bp.sym <- coca(beetles ~ ., data = plants, method = "symmetric")
## load the environmental data
data(verges)
## fit vectors for the environmental data
sol <- envfit(bp.sym, verges, which = "response")
sol
## plot the response matrix and the fitted vectors
biplot(bp.sym, which = "y1")
plot(sol)
Run the code above in your browser using DataLab