From bed3beeea17cc490b5f1dd9d9a4797e77a0b2451 Mon Sep 17 00:00:00 2001
From: Kyle Belanger <kyleb44@hotmail.com>
Date: Thu, 26 Jan 2023 08:15:47 -0500
Subject: [PATCH] Update 1-data-exploration.R

---
 ML/1-data-exploration.R | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/ML/1-data-exploration.R b/ML/1-data-exploration.R
index dc1ea4d..a2863ef 100644
--- a/ML/1-data-exploration.R
+++ b/ML/1-data-exploration.R
@@ -19,7 +19,6 @@ box::use(
 # globals -----------------------------------------------------------------
 
 
-
 # load data ---------------------------------------------------------------
 
 ds0 <- readr$read_rds(here("ML","data-unshared","ds_final.RDS"))
@@ -101,6 +100,12 @@ gp2$ggsave(
   ,dpi    = 300
   ,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
@@ -125,6 +130,12 @@ gp2$ggsave(
   ,dpi    = 300
   ,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
 g2 <- ds_recode %>%
@@ -158,6 +169,12 @@ gp2$ggsave(
   ,dpi    = 300
   ,device = devEMF::emf
   )
+gp2$ggsave(
+  here("figures","boxplot.png")
+  ,width  = 7
+  ,height = 7
+  ,dpi    = 300
+)
 
 
 # save-data ---------------------------------------------------------------