try to fix BIOMASS problem

VincyaneBadouard · Aug 28, 2023 · 7b508fb · 7b508fb
1 parent 6116d55
commit 7b508fb
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -47,7 +47,7 @@ Imports:
     dplyr (>= 1.1.2),
     tibble (>= 3.2.1),
     tidyr (>= 1.3.0),
-    BIOMASS (>= 2.1.8),
+    BIOMASS,
     rlang (>= 1.1.1),
     raster (>= 3.6.20),
     sp (>= 1.6.0),

diff --git a/vignettes/LoggingLab.Rmd b/vignettes/LoggingLab.Rmd
@@ -60,6 +60,36 @@ data(PlotMask)
 data(CreekDistances)
 ```
 
+```{r, echo = F}
+distvert <- as.data.frame(CreekDistances$distvert, xy = TRUE) %>%
+  na.omit() %>%
+  dplyr::rename('distvert' = 'file9e98702b30f5')
+
+
+ggplot() + 
+  geom_raster(data = distvert, aes(x = x, y = y, fill = distvert)) +
+  scale_fill_gradientn(name = "Relative elevation to the creek (m)",
+                       colors = hcl.colors(25, "Blues"),
+                       na.value="white") +
+  ggtitle("Paracou P6: Relative elevation to the creek") + 
+  theme_classic() +
+  coord_sf()
+
+disthorz <- as.data.frame(CreekDistances$disthorz, xy = TRUE) %>%
+  na.omit() %>%
+  dplyr::rename('disthorz' = 'file9e985b5916bd')
+
+
+ggplot() + 
+  geom_raster(data = disthorz, aes(x = x, y = y, fill = disthorz)) +
+  scale_fill_gradientn(name = "Relative horizontal distance to the creek (m)",
+                       colors = hcl.colors(25, "Blues"),
+                       na.value="white") +
+  ggtitle("Paracou P6: Relative elevation to the creek") + 
+  theme_classic() +
+  coord_sf()
+```
+
 # Required format of the inventory
 \code{\link{Paracou6_2016}}