# \donttest{
#' # Load example data
data(BCI)
data(TRY)
# Extract trait data
sp <- colnames(BCI$com)
subtraits <- extract_traits(sp, TRY, rank = "species",
traits = c("LA", "LMA", "LeafN", "PlantHeight", "SeedMass", "SSD"))
compnc(com = BCI$com, subtraits, BCI$phy_species, methods = "lambda", pca_axes = NULL)
# }
Run the code above in your browser using DataLab