# NOT RUN {
# }
# NOT RUN {
# Establishment of working directories (optional)
# By default here we propose the current working directory of the R process
dir.data <- getwd()
dir.result <- getwd()
# Loading example data included in FORTLS
data("Rioja.data")
tree.list.tls <- Rioja.data$tree.list.tls
# 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"), method = "wininet",
mode = "wb")
# Without considering distance sampling methods
met.var.TLS <- metrics.variables(tree.list.tls = tree.list.tls,
plot.parameters = data.frame(radius = 10, k.tree = 10, BAF = 2),
dir.data = dir.data, dir.result = dir.result)
# Considering distance sampling methods
ds <- distance.sampling(tree.list.tls)
met.var.TLS <- metrics.variables(tree.list.tls = tree.list.tls,
distance.sampling = ds,
plot.parameters = data.frame(radius = 10, k.tree = 10, BAF = 2),
dir.data = dir.data, dir.result = dir.result)
# Considering strata
# 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")
# Download example of TXT file corresponding to strata 2 (plot 9) from Rioja data set
download.file(url = "https://www.dropbox.com/s/5rwmbyn8tmqc48m/9.txt?raw=1",
destfile = file.path(dir.data, "9.txt"), method = "wininet",
mode = "wb")
plot.parameters <- data.frame(radius = c(10, 15), k.tree = c(8, 12), BAF = c(1.5, 2))
met.var.TLS <- metrics.variables(tree.list.tls = tree.list.tls,
distance.sampling = ds,
plot.parameters = plot.parameters,
dir.data = dir.data, dir.result = dir.result)
# }
Run the code above in your browser using DataLab