Update 0-data_prep.R

This commit is contained in:
Kyle Belanger 2023-01-23 08:08:13 -05:00
parent 2ed99f1fee
commit 5d5f81d1c0

View file

@ -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