## Calculate Lorey's Height by plot and species
library(dplyr)
inventory_samples |>
mutate(g = silv_basal_area(diameter)) |>
summarise(
lh = silv_lorey_height(height, g),
.by = c(plot_id, species)
)
Run the code above in your browser using DataLab