treefromthesky: treefromthesky
In thomasgaquiere/Maria: Simulate Different Forms of Logging on a Forest

Description Usage Arguments Value Examples

treefromthesky

1	treefromthesky(dat)

dat

1 row data.frame with columns: "Xutm", "Yutm" (Tree coordinates) and "CrownDiameter".

A circle (sfc_POLYGON) representing the tree crown, with its diameter filled in, representing the tree from the sky.

data(Paracou6_2016)
data(ForestZoneVolumeParametersTable)

inventory <- addtreedim(inventorycheckformat(Paracou6_2016),
volumeparameters = ForestZoneVolumeParametersTable)
dat <- inventory[679,]

Crown <- treefromthesky(dat)

library(ggplot2)
ggplot() +
 geom_sf(data = sf::st_as_sf(inventory, coords = c("Xutm", "Yutm"))) +
 geom_sf(data = Crown, fill = "forestgreen") # trees polygons