Eval prediction data at covariates

PhilipMostert · Jan 15, 2024 · b006439 · b006439
1 parent 3145dee
commit b006439
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/R/bruSDM_predict.R b/R/bruSDM_predict.R
@@ -127,6 +127,22 @@ predict.bruSDM <- function(object, data = NULL, formula = NULL, mesh = NULL,
     else data <- inlabru::fm_int(mesh, format = format)
   }
 
+  if (!any(names(data) %in% object$spatCovs$name)) {
+
+    for (spatCov in object$spatCovs$name) {
+
+      if (!is.null(object$species$speciesIn) && object$species$speciesEffects$Environmental) covIndex <- paste0(object$species$speciesIn, '_', spatCov)
+      else covIndex <- spatCov
+
+      data[[spatCov]] <- inlabru::eval_spatial(where =  data, 
+                                               data = get('spatialcovariates', 
+                                               envir = object$spatCov$env),
+                                               layer = spatCov)
+
+
+    }
+
+  }
 
   if (is.null(formula)) {