From 843b985be701511ba0b1bf80ec602355532b9679 Mon Sep 17 00:00:00 2001
From: Nathan Muncy <nmuncy@fiu.edu>
Date: Wed, 26 May 2021 15:35:26 -0400
Subject: [PATCH] beautifying

---
 afq_step3_stats.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/afq_step3_stats.R b/afq_step3_stats.R
index 347f1c0..9a9da38 100644
--- a/afq_step3_stats.R
+++ b/afq_step3_stats.R
@@ -1040,6 +1040,7 @@ func_plot_lm2 <- function(df_plot, avg_max, mem, gType){
   
   plot(plot1.x, plot1.y, 
        xlab = x_title, 
+       cex.lab = 1.5,
        ylab = mem, 
        ylim = c(min(df_plot$MemScore), max(df_plot$MemScore)),
        main = h_labels[1])
@@ -1047,6 +1048,7 @@ func_plot_lm2 <- function(df_plot, avg_max, mem, gType){
   
   plot(plot2.x, plot2.y, 
        xlab = x_title, 
+       cex.lab = 1.5,
        ylab = "",
        main = h_labels[2], 
        ylim = c(min(df_plot$MemScore), max(df_plot$MemScore)))
@@ -1054,6 +1056,7 @@ func_plot_lm2 <- function(df_plot, avg_max, mem, gType){
   
   plot(plot3.x, plot3.y, 
        xlab = x_title, 
+       cex.lab = 1.5,
        ylab = "",
        main = h_labels[3], 
        ylim = c(min(df_plot$MemScore), max(df_plot$MemScore)))
@@ -1177,7 +1180,7 @@ for(gType in groupType){
 
 
 # For Demographics
-gType <- 1
+gType <- 2
 tract <- "UNC_L"
 
 dataFile <- paste0(dataDir, "Master_dataframe_G", gType,".csv")