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