From d4b5a4a5256047123b6d9db2b6bd42bf3e8d2ee6 Mon Sep 17 00:00:00 2001
From: Quang Huynh <quang@bluematterscience.com>
Date: Thu, 6 Jun 2024 16:11:17 -0700
Subject: [PATCH] Call factor for input map
---
R/make-parameters.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/make-parameters.R b/R/make-parameters.R
index b968df3..06ca9d7 100644
--- a/R/make-parameters.R
+++ b/R/make-parameters.R
@@ -307,7 +307,7 @@ make_map <- function(p, MARSdata, map = list(),
nf <- MARSdata@Dfishery@nf
random <- NULL
- #map <- list()
+ map <- lapply(map, factor)
# Stock parameters ----
if (!silent) {