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

get_layers_lad

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]