From 5d5f81d1c0f206a5042c1f8bdbaa2831976c0ac6 Mon Sep 17 00:00:00 2001
From: Kyle Belanger <kyleb44@hotmail.com>
Date: Mon, 23 Jan 2023 08:08:13 -0500
Subject: [PATCH] Update 0-data_prep.R

---
 ML/0-data_prep.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ML/0-data_prep.R b/ML/0-data_prep.R
index f95b58c..ad4a7d2 100644
--- a/ML/0-data_prep.R
+++ b/ML/0-data_prep.R
@@ -91,7 +91,7 @@ ds1 <- ds_bmp %>%
   dplyr$filter(!is.na(`50993`) & !is.na(`50995`)) %>%
   dplyr$left_join(patients, by = c("subject_id" = "subject_id")) %>%
   dplyr$mutate(dplyr$across(`51300`, ~dplyr$if_else(!is.na(.),`51300`,`51301`))) %>%
-  dplyr$select(-`51301`, -hadm_id) %>%
+  dplyr$select(-`51301`) %>%
   # dplyr$filter(dplyr$if_all(.fns = ~!is.na(.)))
   dplyr$filter(rowSums(is.na(.)) <= 3)  #allows for 3 missing test