# Example trait dataset
traits <- data.frame(
growth_form = c("g", "g", "n", "g", "n"),
CH = c(45.3, 169.7, 13.7, 132.7, 76.0),
LDMC = c(33.0, 37.9, 25.9, 28.0, 15.7),
FP = c(2, 2, 2, 1, 2),
LS = c(3, 5, 4, 2, 5),
LDW = c(1.9, 9.9, 2.3, 7.5, 40.2),
SLA = c(19.0, 20.4, 15.2, 22.6, 21.8),
FS = c(5, 5, 4, 5, 5)
)
# Run CSR classification
result <- CSR_hodgson(traits)
print(result)
# Plot CSR positions
CSR_plot(data = result)
Run the code above in your browser using DataLab