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-26 08:15:47 -05:00
parent d7621218c0
commit bed3beeea1
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -19,7 +19,6 @@ box::use(
# globals ----------------------------------------------------------------- # globals -----------------------------------------------------------------
# load data --------------------------------------------------------------- # load data ---------------------------------------------------------------
ds0 <- readr$read_rds(here("ML","data-unshared","ds_final.RDS")) ds0 <- readr$read_rds(here("ML","data-unshared","ds_final.RDS"))
@ -101,6 +100,12 @@ gp2$ggsave(
,dpi = 300 ,dpi = 300
,device = devEMF::emf ,device = devEMF::emf
) )
gp2$ggsave(
here("figures","corr_plot.png")
,width = 7
,height = 7
,dpi = 300
)
#quick recode of gender, will still do recoding during feature engineering #quick recode of gender, will still do recoding during feature engineering
@ -125,6 +130,12 @@ gp2$ggsave(
,dpi = 300 ,dpi = 300
,device = devEMF::emf ,device = devEMF::emf
) )
gp2$ggsave(
here("figures","distrubution_histo.png")
,width = 7
,height = 7
,dpi = 300
)
# this takes a bit to load. No discernible patterns in the data # this takes a bit to load. No discernible patterns in the data
g2 <- ds_recode %>% g2 <- ds_recode %>%
@ -158,6 +169,12 @@ gp2$ggsave(
,dpi = 300 ,dpi = 300
,device = devEMF::emf ,device = devEMF::emf
) )
gp2$ggsave(
here("figures","boxplot.png")
,width = 7
,height = 7
,dpi = 300
)
# save-data --------------------------------------------------------------- # save-data ---------------------------------------------------------------