# NOT RUN {
# Load information of trees detected from TLS point clouds data corresponding to
# plot 1 from Rioja data set
data("Rioja.data")
example.tls <- subset(Rioja.data$tree.list.tls, id == 1)
# Compute detection probabilities using distance sampling methods
example.ds <- distance.sampling(example.tls)
# Load information of trees measured in field plots corresponding to plot 1 from
# Rioja data set
example.field <- subset(Rioja.data$tree.list.field, id == 1)
# Establish directory where TXT file containing TLS point cloud corresponding to
# plot 1 from Rioja data set is located. For instance, current working directory
dir.data <- getwd()
# Download example of TXT file corresponding to plot 1 from Rioja data set
download.file(url = "https://www.dropbox.com/s/w4fgcyezr2olj9m/1.txt?raw=1",
destfile = file.path(dir.data, "1.txt"),
mode = "wb")
# Establish directory where simulation results corresponding to plot 1 from
# Rioja data set will be saved. For instance, current working directory
dir.result <- getwd()
# Compute metrics and variables for simulated TLS and field plots corresponding
# to plot 1 from Rioja data set
# Without occlusion correction based on distance sampling methods
sim <- simulations(tree.list.tls = example.tls, tree.list.field = example.field,
plot.parameters = list(radius.max = 20, k.tree.max = 30,
BAF.max = 4),
dir.data = dir.data, dir.result = dir.result)
# With occlusion correction based on distance sampling methods
sim <- simulations(tree.list.tls = example.tls, distance.sampling = example.ds,
tree.list.field = example.field,
plot.parameters = list(radius.max = 20, k.tree.max = 30,
BAF.max = 4),
dir.data = dir.data,
dir.result = dir.result)
# Only circular fixed area plot design with non-default parameters, and with occlusion
# correction based on distance sampling methods
sim <- simulations(tree.list.tls = example.tls, distance.sampling = example.ds,
tree.list.field = example.field,
plot.parameters <- list(radius.max = 20,
radius.increment = .25,
num.trees = 50),
dir.data = dir.data, dir.result = dir.result)
# Only k-tree plot design with non-default parameters, and with occlusion
# correction based on distance sampling methods
sim <- simulations(tree.list.tls = example.tls, distance.sampling = example.ds,
tree.list.field = example.field,
plot.parameters <- list(k.tree.max = 30, num.trees = 50),
dir.data = dir.data, dir.result = dir.result)
# Only angle-count plot design with non-default parameters, and with occlusion
# correction based on distance sampling methods
sim <- simulations(tree.list.tls = example.tls, distance.sampling = example.ds,
tree.list.field = example.field,
plot.parameters <- list(BAF.max = 5, BAF.increment = 0.5,
num.trees = 50),
dir.data = dir.data, dir.result = dir.result)
# }
Run the code above in your browser using DataLab