Fixed issue with own predict data

PhilipMostert · Aug 8, 2024 · 3a21e75 · 3a21e75
1 parent f526acf
commit 3a21e75
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/modSpecies_predict.R b/R/modSpecies_predict.R
@@ -165,7 +165,7 @@ predict.modSpecies <- function(object, data = NULL, formula = NULL, mesh = NULL,
 
   }
 
-  if (!any(names(data) %in% object$spatCovs$name)) {
+  if (!any(names(data) %in% c(object$spatCovs$name,  paste0(unique(unlist(object$species$speciesIn)), '_', object$spatCovs$name)))) {
 
     for (spatCov in object$spatCovs$name) {