From 93ceba5e1be8fd8cf47134e2fd138b2c81e36ef2 Mon Sep 17 00:00:00 2001 From: Kyle Belanger Date: Fri, 13 Jan 2023 07:47:50 -0500 Subject: [PATCH] Update 1-data-exploration.R --- ML/1-data-exploration.R | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/ML/1-data-exploration.R b/ML/1-data-exploration.R index 0f4122d..c0254e2 100644 --- a/ML/1-data-exploration.R +++ b/ML/1-data-exploration.R @@ -76,8 +76,18 @@ ds_corr <- cor(ds_high_tsh %>% dplyr$select(-subject_id, - charttime) %>% dplyr$mutate(dplyr$across(gender, ~dplyr$recode(.,M = 1, F = 2))) ,use = "complete.obs") + +#code for saving corr plot +png(here("figures","corrplot_high.png"), type = 'cairo') + corrplot::corrplot(ds_corr, method = "number") +dev.off() + + + + + #quick recode of gender, will still do recoding during feature engineering g1 <- ds_high_tsh %>%