library(dplyr)
data(community)
data(trait)
filled_traits <- trait_fill(
comm = community |>
filter(PlotID %in% c("A", "B")),
traits = trait,
scale_hierarchy = c("Site", "PlotID"),
taxon_col = "Taxon", value_col = "Value",
trait_col = "Trait", abundance_col = "Cover"
)
fitted_distributions <- trait_fit_distributions(
filled_traits = filled_traits,
distribution_type = "normal"
)
Run the code above in your browser using DataLab