tnr <- 166
enr <- 2
bnr <- 7
angle_counts <- bw2bwi2022de(get(data("trees", package = "treePlotArea")))
boundaries <- get(data("boundaries", package = "treePlotArea"))
plot_tree_plot_area(angle_counts = angle_counts,
boundaries = boundaries,
tnr = tnr, enr = enr, bnr = bnr, frame_factor = 4)
plot_tree_plot_area(angle_counts = angle_counts,
boundaries = boundaries,
tnr = tnr, enr = enr, frame_factor = 1)
tnr <- 9823
enr <- 1
bnr <- 2
plot_tree_plot_area(angle_counts = angle_counts,
boundaries = boundaries,
tnr = tnr, enr = enr, bnr = bnr, frame_factor = 4)
plot_tree_plot_area(angle_counts = angle_counts,
boundaries = boundaries,
tnr = tnr, enr = enr, frame_factor = 1)
Run the code above in your browser using DataLab