Update AAP run, retros with rho

model_AAP.R

@@ -60,14 +60,14 @@ retro <- FLStocks(parallel::mclapply(years, function(x) {
       control=control, stdfile=btsgam@stdfile, wkdir=tempfile()) + window(stock, end=x)
   }, mc.cores=length(years)))
 
-# --- RUNS & STOCKS
+# --- STOCKS & RESIDUALS
 stocks <- FLStocks(lapply(runs, "+", stock))
-residuals <- lapply(runs, residuals, stock)
+residuals <- lapply(runs[!names(runs) %in% "McMC"], residuals, stock)
 
 # --- SRR
 
-srrs <- FLSRs(lapply(c("bevholt", "ricker", "segreg"), function(x)
-  fmle(as.FLSR(stocks[["BTS-GAM"]], model=x))))
+srrs <- FLSRs(setNames(lapply(c("bevholt", "ricker", "segreg"), function(x)
+  fmle(as.FLSR(stocks[["BTS-GAM"]], model=x, name=x))), c("bevholt", "ricker", "segreg")))
 
 # --- REFERENCE points