Initial commit aba model calibration

area-based.1.data.preparation.Rmd

@@ -26,7 +26,7 @@ Required `R` libraries : `ggplot2`, `sf`, `ggmap`
 
 ### Tree-level inventory
 
-96 plots of 15 m radius have been inventoried in the Quatre Montagnes area (Vercors Mountain, France). Plots are aggregated in clusters of 4. Data are provided in the folder "aba.model/field":
+96 plots of 15 m radius have been inventoried in the Quatre Montagnes area (Vercors Mountain, France). Plots are aggregated in clusters of 4. Data are provided in the folder "data/aba.model/field":
 
 + one file per plot for tree information ("Verc-CLUSTERID-PLOTID-ArbresTerrain.csv")
 - one file per cluster for plot center location ("Verc-CLUSTERID-PiquetsTerrain.csv")
@@ -504,6 +504,8 @@ sf::st_crs(public) <- 2154
 plots.sf <- sf::st_join(plots.sf, public)
 # rename column and levels
 plots.sf$stratum <- factor(ifelse(is.na(plots.sf$FID), "private", "public"))
+# also add to data.frame
+plots <- merge(plots, sf::st_drop_geometry(plots.sf[, c("plotId", "stratum")]))
 # remove column
 plots.sf$FID <- NULL
 ```