get_plots_effective {LadderFuelsR} | R Documentation |
Plots of fuel layers with LAD percentage greater than a specified threshold
Description
This function plots effective fuel layers separated by effective distances (> 1 m).
Usage
get_plots_effective(LAD_profiles, effective_LAD)
Arguments
LAD_profiles |
Original tree Leaf Area Density (LAD) profile (output of [lad.profile()] function in the leafR package). An object of the class text. |
effective_LAD |
Tree metrics with gaps (distances), fuel base heights, and depths of fuel layers with LAD percentage greater than a specified threshold (output of [get_layers_lad()] function). An object of the class text. |
Value
A plot drawing the effective fuel layers with LAD percentage greater than a specified threshold.
Author(s)
Olga Viedma, Carlos Silva and JM Moreno
See Also
Examples
library(ggplot2)
library(dplyr)
# LAD profiles derived from normalized ALS data after applying [lad.profile()] function
LAD_profiles <- read.table(system.file("extdata", "LAD_profiles.txt", package = "LadderFuelsR"),
header = TRUE)
LAD_profiles$treeID <- factor(LAD_profiles$treeID)
# Before running this example, make sure to run get_layers_lad().
if (interactive()) {
effective_LAD <- get_layers_lad()
LadderFuelsR::effective_LAD$treeID <- factor(LadderFuelsR::effective_LAD$treeID)
trees_name1 <- as.character(effective_LAD$treeID)
trees_name2 <- factor(unique(trees_name1))
# Generate plots for fuels LAD metrics
plots_effective_metrics <- get_plots_effective(LAD_profiles, effective_LAD)
}
[Package LadderFuelsR version 0.0.4 Index]