From 4a4e61791896e9f17d7e675fcbde9bf87c26f517 Mon Sep 17 00:00:00 2001
From: Kyle Belanger <kyleb44@hotmail.com>
Date: Wed, 18 Jan 2023 19:45:10 -0500
Subject: [PATCH] Update 1-data-exploration.R

---
 ML/1-data-exploration.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ML/1-data-exploration.R b/ML/1-data-exploration.R
index a6dde52..1113c97 100644
--- a/ML/1-data-exploration.R
+++ b/ML/1-data-exploration.R
@@ -69,6 +69,7 @@ ds_low_tsh <- ds_low_tsh_raw %>%
   dplyr$select(-FT4)
 
 
+
 # basic visualization -----------------------------------------------------
 
 #graph and table of missing tests
@@ -100,8 +101,8 @@ low_missing <- missing_count(ds_low_tsh)
 missing_table <- high_missing$df %>%
   dplyr$left_join(low_missing$df, by = "rowname")
 
-
-
+#use this instead of making myself
+ds_high_tsh %>% gtsummary::tbl_summary(by = ft4_dia)
 
 
 # count of diagnostics ft4 and freq