Defines whether the directed fall of the tree is successful or
not by drawing in a Bernoulli distribution where the probability of success
is by default 60%, and can be changed with the
advancedloggingparameters argument.
Usage
directionalfellingsuccessdef(
inventory,
fuel,
directionalfelling,
advancedloggingparameters = loggingparameters()
)Arguments
- inventory
input inventory (see the inputs formats and metadata in the vignette) (data.frame)
- fuel
Fuel wood exploitation: no exploitation = "0", exploitation of damage and unused part of logged trees for fuel = "1", exploitation of hollow trees, damage and and unused part of the log for fuel = "2"
- directionalfelling
Directional felling = "0": only to direct the foot of the tree towards the trail "1": to direct the foot of the tree towards the trail + to avoid damage to future and reserve trees "2": to avoid damage to future and reserve trees + orientation angle to the trail
- advancedloggingparameters
Other parameters of the logging simulator
loggingparameters(list)
Value
Input inventory with the "TreeFellingOrientationSuccess" new column (see the outputs metadata in the vignette).
Examples
data(Paracou6_2016)
data(DTMParacou)
data(MainTrails)
data(HarvestableAreaOutputsCable)
inventory <- addtreedim(cleaninventory(Paracou6_2016, PlotMask),
volumeparameters = ForestZoneVolumeParametersTable)
inventory <- treeselection(inventory,
topography = DTMParacou,
speciescriteria = SpeciesCriteria,
scenario = "manual", objective = 10, fuel = "2", diversification = TRUE,
winching = "2", specieslax = FALSE, objectivelax = TRUE,
harvestablearea = HarvestableAreaOutputsCable$HarvestableArea,
plotslope = HarvestableAreaOutputsCable$PlotSlope,
maintrails = MainTrails,
harvestablepolygons = HarvestableAreaOutputsCable$HarvestablePolygons,
advancedloggingparameters = loggingparameters())$inventory
#> As the harvestable volume (= 178m^3)
#> was higher (by 140.5m^3)
#> than the objective volume, the Minimum Falling Diameter (MinFD) of the 1st and 2nd economic ranks species
#> were increased to UpMinFD. The objective volume has now been reached.
new <- directionalfellingsuccessdef(inventory, fuel = "2",
directionalfelling = "2",
advancedloggingparameters = loggingparameters())