st_temporaryintersection

st_temporaryintersection

Usage

st_temporaryintersection(
  topography,
  plotmask,
  treebuffers,
  advancedloggingparameters = loggingparameters()
)

Arguments

topography

Digital terrain model (DTM) of the inventoried plot (LiDAR or SRTM) (DTMParacou) (RasterLayer with a crs in UTM)

plotmask

Inventoried plot mask (SpatialPolygonsDataFrame with a crs in UTM)

treebuffers

Polygons vector

advancedloggingparameters

Other parameters of the logging simulator loggingparameters (list)

Value

sf_Polygons

Examples

if (FALSE) { # \dontrun{
data(Paracou6_2016)
data(DTMParacou)
data(PlotMask)
data(SpeciesCriteria)
data(ForestZoneVolumeParametersTable)
data(HarvestableAreaOutputsCable)
data(MainTrails)

inventory <- addtreedim(cleaninventory(Paracou6_2016, PlotMask),
volumeparameters = ForestZoneVolumeParametersTable)

treeselectionoutputs <- suppressWarnings(treeselection(
  inventory,
  topography = DTMParacou,
  speciescriteria = SpeciesCriteria,
  scenario = "manual", objective = 20,
  fuel = "0",
  diversification = FALSE,
  winching = "0",
  specieslax = FALSE, objectivelax = TRUE,
  harvestablearea = HarvestableAreaOutputsCable$HarvestableArea,
  plotslope = HarvestableAreaOutputsCable$PlotSlope,
  harvestablepolygons = HarvestableAreaOutputsCable$HarvestablePolygons,
  maintrails = MainTrails,
  advancedloggingparameters = loggingparameters()))

treebuffers <- treeselectionoutputs$SelectedTreesPoints %>% sf::st_buffer(40)

st_temporaryintersection(DTMParacou, PlotMask, treebuffers)
} # }