# NOT RUN {
## load some data
data(beetles)
data(plants)
## log transform the beetle data
beetles <- log(beetles + 1)
## symmetric Co-CA model
beetles.sym <- coca(beetles ~ ., data = plants, method = "symmetric")
## correlations between axes
corAxis(beetles.sym)
# }
Run the code above in your browser using DataLab