# Creating the 'param' object with phytosociological parameters
point.param <- phytoparam(x = point.df, measure.label = "CBH",
taxon = "Species", dead = "Morta", family = "Family",
circumference = TRUE, su = "Point", height = TRUE,
quadrat = FALSE, d = "Distance", rm.dead = FALSE)
# Stratified volumes with a single breakpoint (<= 20 cm; > 20 cm)
stratvol(point.param, classes = 20)
# Stratified volumes with multiple classes (<= 5], ]5–10], > 10 cm)
stratvol(point.param, classes = c(5, 10))
# Using a taper/form correction factor and excluding dead trees
stratvol(point.param, classes = c(10, 20, 30), shape.factor = 0.7, rm.dead = TRUE)
Run the code above in your browser using DataLab