resize recdev vector

NOAA-FIMS · Nov 16, 2023 · 91fefa8 · 91fefa8
1 parent 28a87df
commit 91fefa8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/inst/include/interface/rcpp/rcpp_objects/rcpp_recruitment.hpp b/inst/include/interface/rcpp/rcpp_objects/rcpp_recruitment.hpp
@@ -148,7 +148,7 @@ class BevertonHoltRecruitmentInterface : public RecruitmentInterfaceBase {
       }
     }
 
-    recruitment->log_recruit_devs.resize(this->log_devs.size());
+    recruitment->log_recruit_devs.resize(this->log_devs.size()+1);
     if (this->estimate_log_devs) {
       for (size_t i = 0; i < recruitment->log_recruit_devs.size(); i++) {
         recruitment->log_recruit_devs[i] = this->log_devs[i];

diff --git a/tests/testthat/test-fims-estimation.R b/tests/testthat/test-fims-estimation.R
@@ -39,7 +39,7 @@ setup_fims <- function(om_input, om_output, em_input) {
   test_env$recruitment$logit_steep$estimated <- FALSE
   test_env$recruitment$estimate_log_devs <- TRUE
   # alternative setting: recruitment$log_devs <- rep(0, length(om_input$logR.resid))
-  test_env$recruitment$log_devs <- c(om_input$logR.resid[-1], 0)
+  test_env$recruitment$log_devs <- om_input$logR.resid[-1]
 
   # Data
   test_env$catch <- em_input$L.obs$fleet1