# NOT RUN {
# Loading dataset with trees detected from TLS single-scans
data("Rioja.data")
tree.list.tls <- Rioja.data$tree.list.tls
# Without strata and plot parameters by default
estimation.plot.size(tree.list.tls)
estimation.plot.size(tree.list.tls, average = TRUE)
estimation.plot.size(tree.list.tls, all.plot.designs = TRUE)
# Considering two strata and different parameters
# Loading dataset with strata
plot.attributes <- Rioja.data$plot.attributes
# Merging the plot.attributes data set with strata information
tree.list.tls <- merge(tree.list.tls, plot.attributes, by = "id")
estimation.plot.size(tree.list.tls,
plot.parameters = list(radius.max = 10, k.tree.max = 10, BAF.max = 2))
estimation.plot.size(tree.list.tls, ,
plot.parameters = list(radius.max = 15, k.tree.max = 20, BAF.max = 4),
average = TRUE)
estimation.plot.size(tree.list.tls,
plot.parameters = list(radius.max = 20, k.tree.max = 30, BAF.max = 2),
all.plot.designs = TRUE)
# }
Run the code above in your browser using DataLab