Fixed issue with pointcovs in makeLhoods

PhilipMostert · Jan 22, 2024 · 8b1ea12 · 8b1ea12
1 parent 70d19f6
commit 8b1ea12
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/makeLhoods.R b/R/makeLhoods.R
@@ -82,8 +82,8 @@ makeLhoods <- function(data, formula, family, mesh, ips,
 
         if (family[[dataset]][process] == 'cp' && any(pointcovs %in% names(data[[dataset]][[species]]))) {
 
-          pointcovsIn <- pointcovs[pointcovs %in%  names(data[[dataset]][[species]])]
-          formula[[dataset]][[species]][[process]][['LHS']] <- reformulate(deparse(formula[[dataset]][[species]][[process]][['LHS']][[3]]), paste0('coordinates + ', pointcovsIn))
+          #pointcovsIn <- pointcovs[pointcovs %in%  names(data[[dataset]][[species]])]
+          #formula[[dataset]][[species]][[process]][['LHS']] <- reformulate(deparse(formula[[dataset]][[species]][[process]][['LHS']][[3]]), paste0('geometry + ', pointcovsIn))
 
         }
         }