Function to attribute the trees on each subplot, the trees that are at the exterior of the subplot will be marked as NA
Arguments
- xy
The coordinates of the trees for each plot
- plot
The label of the plot (same length as the number of rows of
xy)- coordAbs
Output of the function
cutPlot()
Value
A vector with the code of the subplot for each trees, the code will be plot_X_Y. X and Y are the coordinate
where the tree is inside the plot in regards to the corresponding subplot.
Examples
# Trees relative coordinates
xy <- data.frame(x = runif(200, min = 0, max = 200), y = runif(200, min = 0, max = 200))
# cut the plot in multiple part
coord <- data.frame(X = rep(c(0, 200, 0, 200), 2), Y = rep(c(0, 0, 200, 200), 2))
coord[1:4, ] <- coord[1:4, ] + 5000
coord[5:8, ] <- coord[5:8, ] + 6000
corner <- rep(c(1, 2, 4, 3), 2)
plot <- rep(c("plot1", "plot2"), each = 4)
cut <- cutPlot(coord, plot, corner, gridsize = 100, dimX = 200, dimY = 200)
# Assign a plot to 200 trees
plot <- rep(c("plot1", "plot2"), 100)
# attribute trees to subplots
attributeTree(xy, plot, cut)
#> [1] "plot1_1_1" "plot2_0_0" "plot1_1_0" "plot2_0_0" "plot1_1_1" "plot2_1_1"
#> [7] "plot1_1_1" "plot2_1_0" "plot1_1_1" "plot2_0_1" "plot1_1_0" "plot2_1_0"
#> [13] "plot1_0_0" "plot2_0_0" "plot1_0_1" "plot2_0_0" "plot1_0_0" "plot2_1_0"
#> [19] "plot1_1_1" "plot2_0_1" "plot1_1_1" "plot2_0_0" "plot1_0_0" "plot2_1_1"
#> [25] "plot1_0_1" "plot2_0_1" "plot1_0_1" "plot2_0_1" "plot1_1_0" "plot2_0_0"
#> [31] "plot1_1_0" "plot2_1_1" "plot1_1_0" "plot2_0_1" "plot1_0_1" "plot2_1_1"
#> [37] "plot1_0_0" "plot2_1_1" "plot1_0_0" "plot2_1_1" "plot1_0_1" "plot2_1_1"
#> [43] "plot1_0_0" "plot2_1_0" "plot1_1_1" "plot2_1_0" "plot1_0_1" "plot2_0_1"
#> [49] "plot1_0_1" "plot2_0_0" "plot1_0_1" "plot2_1_1" "plot1_1_1" "plot2_0_1"
#> [55] "plot1_0_0" "plot2_0_1" "plot1_0_1" "plot2_0_0" "plot1_0_0" "plot2_1_0"
#> [61] "plot1_1_0" "plot2_1_1" "plot1_1_0" "plot2_1_1" "plot1_0_0" "plot2_1_0"
#> [67] "plot1_0_0" "plot2_1_0" "plot1_0_0" "plot2_1_1" "plot1_1_0" "plot2_1_0"
#> [73] "plot1_1_1" "plot2_1_1" "plot1_0_1" "plot2_0_0" "plot1_1_1" "plot2_1_1"
#> [79] "plot1_1_1" "plot2_1_1" "plot1_1_1" "plot2_1_0" "plot1_1_0" "plot2_1_0"
#> [85] "plot1_1_1" "plot2_0_1" "plot1_0_1" "plot2_0_1" "plot1_1_0" "plot2_1_1"
#> [91] "plot1_1_1" "plot2_1_1" "plot1_0_1" "plot2_0_0" "plot1_1_0" "plot2_0_1"
#> [97] "plot1_1_1" "plot2_0_0" "plot1_1_0" "plot2_1_0" "plot1_0_0" "plot2_1_0"
#> [103] "plot1_0_0" "plot2_0_0" "plot1_1_0" "plot2_1_1" "plot1_0_1" "plot2_0_0"
#> [109] "plot1_1_0" "plot2_1_1" "plot1_0_0" "plot2_1_1" "plot1_1_0" "plot2_1_0"
#> [115] "plot1_1_1" "plot2_1_1" "plot1_1_1" "plot2_1_0" "plot1_1_1" "plot2_1_0"
#> [121] "plot1_0_1" "plot2_1_0" "plot1_1_1" "plot2_1_1" "plot1_1_0" "plot2_1_0"
#> [127] "plot1_0_0" "plot2_0_0" "plot1_0_1" "plot2_1_0" "plot1_1_1" "plot2_1_0"
#> [133] "plot1_0_1" "plot2_0_0" "plot1_0_0" "plot2_1_1" "plot1_1_1" "plot2_0_1"
#> [139] "plot1_1_0" "plot2_1_0" "plot1_0_0" "plot2_0_1" "plot1_0_0" "plot2_0_1"
#> [145] "plot1_1_0" "plot2_1_1" "plot1_0_0" "plot2_0_1" "plot1_1_0" "plot2_0_0"
#> [151] "plot1_0_1" "plot2_1_1" "plot1_1_1" "plot2_0_1" "plot1_0_1" "plot2_0_0"
#> [157] "plot1_0_0" "plot2_0_0" "plot1_0_1" "plot2_1_1" "plot1_0_0" "plot2_1_0"
#> [163] "plot1_1_0" "plot2_1_1" "plot1_1_1" "plot2_0_1" "plot1_1_1" "plot2_0_0"
#> [169] "plot1_0_0" "plot2_1_0" "plot1_0_1" "plot2_0_0" "plot1_1_1" "plot2_1_1"
#> [175] "plot1_1_1" "plot2_1_1" "plot1_0_0" "plot2_1_1" "plot1_1_1" "plot2_1_1"
#> [181] "plot1_0_1" "plot2_1_0" "plot1_1_1" "plot2_0_0" "plot1_0_0" "plot2_1_0"
#> [187] "plot1_1_1" "plot2_0_1" "plot1_0_0" "plot2_0_1" "plot1_0_0" "plot2_0_1"
#> [193] "plot1_0_1" "plot2_0_0" "plot1_0_1" "plot2_1_0" "plot1_1_1" "plot2_0_1"
#> [199] "plot1_0_0" "plot2_0_1"