diff --git a/ML/0-data_prep.R b/ML/0-data_prep.R index ad4a7d2..334a8e3 100644 --- a/ML/0-data_prep.R +++ b/ML/0-data_prep.R @@ -105,7 +105,9 @@ ds_final <- ds1 %>% ,TRUE ~ "Normal TSH" ) ) %>% + dplyr$filter(ft4_dia != "Normal TSH") %>% dplyr$rename(!!!test_list_names) %>% + dplyr$select(-FT4) %>% dplyr$relocate(gender, anchor_age) # save data ---------------------------------------------------------------