# One plot with repeated measurements of each corner
data("NouraguesPlot201")
check_plot201 <- check_plot_coord(
corner_data = NouraguesPlot201,
proj_coord = c("Xutm","Yutm"), rel_coord = c("Xfield","Yfield"),
trust_GPS_corners = TRUE, draw_plot = FALSE)
check_plot201$corner_coord
# \donttest{
check_plot201$plot_design
# }
# 4 plots with one measurement of each corner
data("NouraguesCoords")
check_plots <- check_plot_coord(
corner_data = NouraguesCoords,
proj_coord = c("Xutm","Yutm"), rel_coord = c("Xfield","Yfield"),
trust_GPS_corners = TRUE, plot_ID = "Plot", draw_plot = FALSE)
check_plots$corner_coord
# \donttest{
check_plots$plot_design
# }
# Displaying the associated CHM raster and representing trees proportionally to their diameter
plot_204_coords <- NouraguesCoords[NouraguesCoords$Plot==204,]
data("NouraguesTrees")
plot_204_trees <- NouraguesTrees[NouraguesTrees$Plot == 204, ]
nouragues_raster <- terra::rast(
system.file("extdata", "NouraguesRaster.tif",
package = "BIOMASS", mustWork = TRUE)
)
check_plot_204 <- check_plot_coord(
corner_data = plot_204_coords,
proj_coord = c("Xutm","Yutm"), rel_coord = c("Xfield","Yfield"),
trust_GPS_corners = TRUE, draw_plot = FALSE,
tree_data = plot_204_trees, tree_coords = c("Xfield","Yfield"),
ref_raster = nouragues_raster, prop_tree = "D"
)
# \donttest{
check_plot_204$plot_design
# }
Run the code above in your browser using DataLab