From 7263643722eddce467af3db0edfd210dedad2f22 Mon Sep 17 00:00:00 2001
From: atottenUSGS <44782051+atottenUSGS@users.noreply.github.com>
Date: Mon, 5 Nov 2018 12:50:19 -0500
Subject: [PATCH] Update 4_process_merged_date.R.  Line 19 predictors_drop
 Removal

For some reason the previous indexing code was removing all the values from the predictors list instead of just removing the list of desired predictors to drop. Wrote the indexing in a slightly different way that seems to work.
---
 scripts/data_processing/4_process_merged_data.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/data_processing/4_process_merged_data.R b/scripts/data_processing/4_process_merged_data.R
index 6357209..c08c54e 100644
--- a/scripts/data_processing/4_process_merged_data.R
+++ b/scripts/data_processing/4_process_merged_data.R
@@ -16,7 +16,7 @@ predictors <- names(select(eof, rain:ARFdays14, sin_sdate:snwd_diff, days_since_
                            ant_dis_1day_max:ant_dis_14day_max, frozen))
 
 # drop site-specific predictors that shouldn't be in mod
-predictors <- predictors[-which(predictors %in% predictors_drop)]
+predictors <- predictors[!(predictors %in% predictors_drop)]
                     
 # set responses and set cleaner name to plot for responses
 if (length(concentrations) > 1) {