Fixed 05_ExtractEnv to account for loc uncert

code/05_ExtractEnvironment.Rmd

@@ -274,12 +274,21 @@ knitr::kable(tmp.sum,
                   full_width = F, position = "center")
 ```
 
+## 4 Elevation variability
+Reimport output (calculated in `04_buildHeader`)
+```{r, message=F}
+elevation.out <- read_csv("../_derived/elevatr/elevation.out.csv")
+```
+
 
-## 4 Create output and export
+## 5 Create output and export
 
 ```{r}
 soilclim <- header %>% 
   dplyr::select(PlotObservationID) %>% 
+  left_join(elevation.out %>% 
+              dplyr::select(PlotObservationID, Elevation_median, Elevation_q2.5, Elevation_q97.5, Elevation_DEM.res=DEM.res), 
+            by="PlotObservationID") %>% 
   left_join(header.shp@data %>% 
               dplyr::select(PlotObservationID) %>% 
               bind_cols(chelsa.out) %>%
@@ -288,7 +297,6 @@ soilclim <- header %>%
               bind_cols(isric.sd.out) %>% 
               distinct(), 
             by="PlotObservationID")
-
 ```
 
 ```{r, echo=F}