From 3308bec67899726495c93b04ad3e3714d354f2f3 Mon Sep 17 00:00:00 2001 From: CassidyPeterson-NOAA Date: Thu, 25 Jan 2024 16:51:43 -0500 Subject: [PATCH] Paste tmp_vals_2 back into calc_par_trend function --- R/initOM_create_devs_list.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/initOM_create_devs_list.R b/R/initOM_create_devs_list.R index 712cb464..2fdecc3a 100644 --- 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"])