If speciesIntercepts NULL change to FALSE

PhilipMostert · Feb 20, 2024 · 455c71d · 455c71d
1 parent 27c62ca
commit 455c71d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/fitISDM.R b/R/fitISDM.R
@@ -159,6 +159,7 @@ fitISDM <- function(data, options = list()) {
 
   }
 
+  if (is.null(data$.__enclos_env__$private$speciesIntercepts)) data$.__enclos_env__$private$speciesIntercepts <- FALSE
   if (data$.__enclos_env__$private$speciesIntercepts) row.names(inlaModel$summary.random[[paste0(data$.__enclos_env__$private$speciesName, '_intercepts')]]) <- data$.__enclos_env__$private$speciesTable[['species']]