t-tests for Literacy and Education by IPV Status

t-test for literacy at Wave 1 (w01WRATtotal) by IPV Status

x = IPVandCognitionDataSet2$IPVstatus
y = IPVandCognitionDataSet2$w01WRATtotal
t.test(y ~ x)

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = 1.111, df = 104.9, p-value = 0.2691
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1.270  4.508
## sample estimates:
## mean in group 0 mean in group 1 
##           44.43           42.81

t-test for years of education at Wave 1 by IPV Status

x = IPVandCognitionDataSet2$IPVstatus
y = IPVandCognitionDataSet2$Education
t.test(y ~ x)

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = 4.508, df = 86.85, p-value = 2.036e-05
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  1.584 4.083
## sample estimates:
## mean in group 0 mean in group 1 
##           14.40           11.57

t-test for literacy at Wave 1 (w01WRATtotal) by sex for participants with a history of IPV

load("~/Desktop/Megan/Research/IPV and Cognition Paper/IPV R Output/IPVgroup.rda")

x = IPVgroup$sex
y = IPVgroup$w01WRATtotal
t.test(y ~ x)

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = -1.096, df = 34.09, p-value = 0.2806
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -6.816  2.039
## sample estimates:
## mean in group 0 mean in group 1 
##           41.44           43.83

t-test for years of education at Wave 1 by sex for participants with a history of IPV

load("~/Desktop/Megan/Research/IPV and Cognition Paper/IPV R Output/IPVgroup.rda")
x = IPVgroup$sex
y = IPVgroup$Education
t.test(y ~ x)

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = -1.456, df = 23.47, p-value = 0.1587
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -3.831  0.664
## sample estimates:
## mean in group 0 mean in group 1 
##           10.67           12.25

Scatter Plots for Trails A by IPVstatus and Sex

library("ggplot2")
ggplot(IPVandCognitionDataSet2, aes(x = sex, y = TrailsAtestSec, colour = IPVstatus)) + 
    geom_point()

plot of chunk unnamed-chunk-5

ggplot(IPVandCognitionDataSet2, aes(x = IPVstatus, y = TrailsAtestSec, colour = sex)) + 
    geom_point()

plot of chunk unnamed-chunk-5

Scatter Plots for Trails B by IPVstatus and Sex

ggplot(IPVandCognitionDataSet2, aes(x = sex, y = TrailsBtestSec, colour = IPVstatus)) + 
    geom_point()

plot of chunk unnamed-chunk-6

ggplot(IPVandCognitionDataSet2, aes(x = IPVstatus, y = TrailsBtestSec, colour = sex)) + 
    geom_point()

plot of chunk unnamed-chunk-6

Scatter Plots for Animal Naming by IPVstatus and Sex

ggplot(IPVandCognitionDataSet2, aes(x = sex, y = FluencyWord, colour = IPVstatus)) + 
    geom_point()

plot of chunk unnamed-chunk-7

ggplot(IPVandCognitionDataSet2, aes(x = IPVstatus, y = FluencyWord, colour = sex)) + 
    geom_point()

plot of chunk unnamed-chunk-7

Scatter Plots for Clock Drawing by IPVstatus and Sex

ggplot(IPVandCognitionDataSet2, aes(x = sex, y = ClockTotal, colour = IPVstatus)) + 
    geom_point()

plot of chunk unnamed-chunk-8

ggplot(IPVandCognitionDataSet2, aes(x = IPVstatus, y = ClockTotal, colour = sex)) + 
    geom_point()

plot of chunk unnamed-chunk-8