param(
data = Logging, plot = "tree", DBH = "diametreMedian",
height = "hauteur", crown = "perimetreBase", area = 0.03, kCrown = 100
)
set.seed(123)
Logging$surperficie <- abs(rnorm(24, mean = 0.03, sd = 0.01))
head(Logging)
param(
data = Logging, plot = "tree", DBH = "diametreMedian",
height = "hauteur", crown = "perimetreBase", area = "surperficie", kCrown = 100
)
if (FALSE) {
# Basic usage - single plot
params <- param(forest_data, DBH = "dbh", height = "height", area = 1000)
# Multiple plots
params <- param(forest_data,
plot = "plot_id", DBH = "dbh",
height = "height", area = "plot_area"
)
# Grouped analysis
params <- param(forest_data,
plot = "plot_id", DBH = "dbh",
height = "height", area = 1000,
"species", "site", "treatment"
)
# Access specific results
oak_site1 <- params$oak$site1
}
Run the code above in your browser using DataLab