From c4ef43417f84290706ba047f8a76dc00f6cee24a Mon Sep 17 00:00:00 2001 From: Eric Ward Date: Wed, 7 Apr 2021 06:08:28 -0700 Subject: [PATCH] Update fit.R --- R/fit.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/fit.R b/R/fit.R index 10d9c3d..e968ebf 100644 --- a/R/fit.R +++ b/R/fit.R @@ -100,8 +100,10 @@ fit <- function(data_list, if (data_list$sig_trend == 0) { tmb_map <- c(tmb_map, list( - sig1_b1 = as.factor(NA) + sig1_b1 = as.factor(NA), + sig2_b1 = as.factor(NA) )) + } else { if (data_list$asymmetric == 0) { tmb_map <- c(tmb_map, list( sig2_b1 = as.factor(NA)