From 239a478b6b50a2bf737c5cc49af196be73cd40aa Mon Sep 17 00:00:00 2001
From: Iago Mosqueira <iagomosqueira@users.noreply.github.com>
Date: Tue, 19 Mar 2024 09:20:34 +0100
Subject: [PATCH] Corrected SRR residuals

---
 R/build.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/build.R b/R/build.R
index fa2ae09..2eeb9bc 100644
--- a/R/build.R
+++ b/R/build.R
@@ -169,7 +169,7 @@ buildFLSRss3 <- function(out, ...) {
   # SUBSET out
   out <- out[c("parameters", "recruit", "derived_quants", "nseasons",
     "nsexes", "likelihoods_used", "SRRtype", "spawnseas", "CoVar",
-    "sigma_R_in", "sigma_R_info")]
+    "sigma_R_info")]
 
   # EXTRACT elements
   recruit <- data.table(out$recruit)[era %in% c("Early","Fixed","Main","Fore"),]
@@ -218,7 +218,7 @@ buildFLSRss3 <- function(out, ...) {
   ssb <- FLQuant(recruit$SpawnBio, dimnames=c(age="all", dms), units="t")
  
   # fitted
-  fitted <- FLQuant(recruit$bias_adjusted, dimnames=c(age=0, dms), 
+  fitted <- FLQuant(recruit$exp_recr, dimnames=c(age=0, dms), 
     units="1000")
   
   # residuals with bias-correction