if (FALSE) {
# Age of first flowering
leda(trait = "age_first_flowering")
# Seed number
leda("seed_number")
# Releasing height
leda(trait = "releasing_height")
# Clonal growth organs
leda(trait = "clonal_growth_organs")
all <- c("age_first_flowering", "branching", "buds_seasonality",
"buds_vertical_dist", "canopy_height",
"dispersal_type", "leaf_distribution", "ldmc_geo", "leaf_mass",
"leaf_size", "morphology_disperal", "growth_form", "life_span",
"releasing_height", "seed_longevity", "seed_mass",
"seed_number", "seed_shape", "shoot_growth_form",
"snp", "ssd", "tv", "clonal_growth_organs")
out <- list()
for (i in seq_along(all)) {
cat(all[i], sep="\n")
out[[i]] <- leda(all[i])
}
sapply(out, NROW)
}
Run the code above in your browser using DataLab