Paste tmp_vals_2 back into calc_par_trend function

nmfs-fish-tools · Jan 25, 2024 · 3308bec · 3308bec
1 parent 1a6891f
commit 3308bec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/initOM_create_devs_list.R b/R/initOM_create_devs_list.R
@@ -449,7 +449,7 @@ calc_par_trend <- function(val_info,
       rdnme<-names(parlist)[grepl("recdev", names(parlist))][1]            
       tmp_vals <- data.frame(yrs = parlist[[rdnme]][, 1],                  
                              rec_devs = parlist[[rdnme]][, 2])              
-
+      tmp_vals_2 <- data.frame(yrs = vals_df[["yrs"]], rec_devs = vals_df[["rec_devs"]])
       tmp_vals <- rbind(tmp_vals, tmp_vals_2)
       to_include <- which(tmp_vals[["yrs"]] >= val_info[val_info[["ts_param"]] == val_line, "first_yr_averaging"] &
         tmp_vals[["yrs"]] <= val_info[val_info[["ts_param"]] == val_line, "last_yr_averaging"])