kyle.belanger/DHSC-Capstone
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Update 1-data-exploration.R

Browse source
This commit is contained in:
Kyle Belanger 2023-01-09 09:37:37 -05:00
parent c629848502
commit 7be2d65d27
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
ML/1-data-exploration.R
View file

@ -14,6 +14,10 @@ box::use(
) )
# globals -----------------------------------------------------------------
# load data --------------------------------------------------------------- # load data ---------------------------------------------------------------
@ -37,8 +41,13 @@ ds_high_tsh <- ds_high_tsh %>%
# basic visualization ----------------------------------------------------- # basic visualization -----------------------------------------------------
test <- dplyr$as_tibble(colSums(is.na(ds_high_tsh)), rownames = NA ) %>%
tibble::rownames_to_column()
g1 <- ds_high_tsh %>% g1 <- ds_high_tsh %>%
dplyr$select(-subject_id, - charttime) %>% dplyr$select(-subject_id, - charttime) %>%
dplyr$mutate(dplyr$across(gender, ~dplyr$recode(.,M = 1, F = 2))) %>% dplyr$mutate(dplyr$across(gender, ~dplyr$recode(.,M = 1, F = 2))) %>%
tidyr$pivot_longer(cols = dplyr$everything()) %>% tidyr$pivot_longer(cols = dplyr$everything())