library(dplyr)
## Circular plot of 10 meters radius
inventory_samples |>
count(plot_id, species) |>
mutate(
ntrees_ha = silv_density_ntrees_ha(n, plot_size = 10)
)
## Rectangular plot of 10x15 meters
inventory_samples |>
count(plot_id, species) |>
mutate(
ntrees_ha = silv_density_ntrees_ha(
n,
plot_size = c(10, 15),
plot_shape = "rectangular"
)
)
Run the code above in your browser using DataLab