## Quadrat method
quadrat.param <- phytoparam(
x = quadrat.df, measure.label = "CBH", taxon = "Species",
dead = "Morta", family = "Family", circumference = TRUE, su = "Plot",
height = TRUE, su.size = 25, rm.dead = FALSE
)
summary(quadrat.param)
head(quadrat.param$data)
quadrat.param$global
quadrat.param$family
quadrat.param$param
## Point-centered quarter method
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
)
summary(point.param)
head(point.param$data)
point.param$global
point.param$family
point.param$param
## Using default column names
point.default <- point.df
colnames(point.default) <- c("point", "family", "taxon", "distance", "cbh", "h")
point.param.default <- phytoparam(
x = point.default, dead = "morta",
circumference = TRUE, height = TRUE, quadrat = FALSE
)
summary(point.param.default)
point.param.default$global
## Plotting
plot(quadrat.param)
plot(point.param)
plot(point.param, theme = "theme_light")
plot(point.param, theme = "theme_bw")
plot(point.param, theme = "theme_minimal")
Run the code above in your browser using DataLab