From ae3a53a964dff7c0e18000c5937e2a40c908867a Mon Sep 17 00:00:00 2001
From: Nathan Muncy <nmuncy@fiu.edu>
Date: Tue, 30 Nov 2021 12:14:08 -0500
Subject: [PATCH] added male vs female test on pds, age

---
 afq_step4_manuscript.R | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/afq_step4_manuscript.R b/afq_step4_manuscript.R
index 5d3dc25..d9261c6 100644
--- a/afq_step4_manuscript.R
+++ b/afq_step4_manuscript.R
@@ -32,3 +32,15 @@ etaSquared(stat_age)
 stat_pds <- aov(PDS ~ as.factor(Group), data = df_subset)
 summary(stat_pds)
 etaSquared(stat_pds)
+
+
+# Male vs Female PDS, age -----
+pds_female <- df_subset[which(df_subset$sex == 0),]$pds
+pds_male <- df_subset[which(df_subset$sex == 1),]$pds
+t.test(pds_female, pds_male, paired=FALSE)  
+
+age_female <- df_subset[which(df_subset$sex == 0),]$age
+age_male <- df_subset[which(df_subset$sex == 1),]$age
+t.test(age_female, age_male, paired=FALSE) 
+  
+