Added speciesTable to fitted model

PhilipMostert · Mar 26, 2024 · 77b72a5 · 77b72a5
1 parent 93589fd
commit 77b72a5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/fitISDM.R b/R/fitISDM.R
@@ -174,7 +174,8 @@ fitISDM <- function(data, options = list()) {
   inlaModel[['species']] <- list(speciesIn = data$.__enclos_env__$private$speciesIn,
                                  speciesVar = data$.__enclos_env__$private$speciesName,
                                  speciesEffects = list(Intercepts = data$.__enclos_env__$private$speciesIntercepts,
-                                                       Environmental = data$.__enclos_env__$private$speciesEnvironment))
+                                                       Environmental = data$.__enclos_env__$private$speciesEnvironment),
+                                 speciesTable = data$.__enclos_env__$private$speciesTable)
   inlaModel[['dataType']] <- c(na.omit(data$.__enclos_env__$private$printSummary$Type),
                                na.omit(unlist(unname(data$.__enclos_env__$private$printSummary$marksType))))
   inlaModel[['marks']] <- list(marksIn = data$.__enclos_env__$private$printSummary$Marks,