Update modules/assim.sequential/R/downscale_function.R

JoshuaPloshay · Jun 3, 2024 · ed8394f · ed8394f
1 parent 3f20e8c
commit ed8394f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/assim.sequential/R/downscale_function.R b/modules/assim.sequential/R/downscale_function.R
@@ -27,7 +27,7 @@ NA_downscale <- function(data, coords, date, C_pool, covariates){
   names(carbon_data) <- paste0("ensemble",seq(1:ncol(carbon_data)))
 
   # Extract predictors from covariates raster using site coordinates
-  predictors <- as.data.frame(terra::extract(covariates, site_coordinates)) 
+  predictors <- as.data.frame(terra::extract(covariates, site_coordinates,ID = FALSE)) 
   predictors <- dplyr::select(predictors, -ID)
 
   # Combine each ensemble member with all predictors