Three-Way Interaction Plots for Trails B, Word Fluency, and Clock Total

##      HNDid          IPVhx       Sex     Depression    Race   
##  Min.   :8.12e+09   No :84   Women:60   No :70     White:46  
##  1st Qu.:8.17e+09   Yes:42   Men  :66   Yes:56     AfrAm:80  
##  Median :8.21e+09                                            
##  Mean   :8.20e+09                                            
##  3rd Qu.:8.22e+09                                            
##  Max.   :8.22e+09                                            
##  TrailsBtestSec   FluencyWord   ClockTotal
##  Min.   : 25.0   Min.   :10   Min.   : 5  
##  1st Qu.: 58.0   1st Qu.:16   1st Qu.: 8  
##  Median : 76.5   Median :20   Median : 9  
##  Mean   :135.6   Mean   :21   Mean   : 9  
##  3rd Qu.:114.8   3rd Qu.:25   3rd Qu.:10  
##  Max.   :600.0   Max.   :44   Max.   :10

Trails B Three-Way Interaction Plots

NoIPV*Sex*Depression


interaction.plot(x.factor = NoIPV$Sex, trace.factor = NoIPV$Depression, response = NoIPV$TrailsBtestSec, 
    fun = mean, legend = T, type = "l", lwd = 2, ylim = c(50, 300), axes = F, 
    trace.label = "Depression", xlab = "Sex", ylab = "Trails B Score")
title(main = "No IPV History")
axis(1, at = 1:2)
axis(2, at = seq(50, 300, 50))

plot of chunk unnamed-chunk-1

IPV*Sex*Depression

interaction.plot(x.factor = IPV$Sex, trace.factor = IPV$Depression, response = IPV$TrailsBtestSec, 
    fun = mean, legend = T, type = "l", lwd = 2, ylim = c(50, 300), axes = F, 
    trace.label = "Depression", xlab = "Sex", ylab = "Trails B Score")
title(main = "IPV History")
axis(1, at = 1:2)
axis(2, at = seq(50, 300, 50))

plot of chunk unnamed-chunk-2

Word Fluency Three-Way Interaction Plots

NoIPV*Sex*Race

## NoIPV:Sex:Race

interaction.plot(x.factor = NoIPV$Sex, trace.factor = NoIPV$Race, response = NoIPV$FluencyWord, 
    fun = mean, legend = T, type = "l", lwd = 2, ylim = c(5, 30), axes = F, 
    trace.label = "Race", xlab = "Sex", ylab = "Word Fluency Score")
title(main = "No IPV History")
axis(1, at = 1:2)
axis(2, at = seq(5, 30, 5))

plot of chunk unnamed-chunk-3

IPV*Sex*Race

## IPV:Sex:Race
interaction.plot(x.factor = IPV$Sex, trace.factor = IPV$Race, response = IPV$FluencyWord, 
    fun = mean, legend = T, type = "l", lwd = 2, ylim = c(5, 30), axes = F, 
    trace.label = "Race", xlab = "Sex", ylab = "Word Fluency Score")
title(main = "IPV History")
axis(1, at = 1:2)
axis(2, at = seq(5, 30, 5))

plot of chunk unnamed-chunk-4

NoIPV*Depression*Race

## NoIPV:CES1:Race
interaction.plot(x.factor = NoIPV$Depression, trace.factor = NoIPV$Race, response = NoIPV$FluencyWord, 
    fun = mean, legend = T, type = "l", lwd = 2, ylim = c(5, 30), axes = F, 
    trace.label = "Race", xlab = "Depression", ylab = "Word Fluency Score")
title(main = "No IPV History")
axis(1, at = 1:2)
axis(2, at = seq(5, 30, 5))

plot of chunk unnamed-chunk-5

IPV*Depression*Race

## IPV:CES1:Race
interaction.plot(x.factor = IPV$Depression, trace.factor = IPV$Race, response = IPV$FluencyWord, 
    fun = mean, legend = T, type = "l", lwd = 2, ylim = c(5, 30), axes = F, 
    trace.label = "Race", xlab = "Depression", ylab = "Word Fluency Score")
title(main = "IPV History")
axis(1, at = 1:2)
axis(2, at = seq(5, 30, 5))

plot of chunk unnamed-chunk-6

Clock Total Three-Way Interaction Plots

NoIPV*Sex*Race

interaction.plot(x.factor = NoIPV$Sex, trace.factor = NoIPV$Race, response = NoIPV$ClockTotal, 
    fun = mean, legend = T, type = "l", lwd = 2, ylim = c(5, 10), axes = F, 
    trace.label = "Race", xlab = "Sex", ylab = "Clock Drawing Total Score")
title(main = "No IPV History")
axis(1, at = 1:2)
axis(2, at = seq(5, 10, 5))

plot of chunk unnamed-chunk-7

IPV*Sex*Race

## IPV:Sex:Race
interaction.plot(x.factor = IPV$Sex, trace.factor = IPV$Race, response = IPV$ClockTotal, 
    fun = mean, legend = T, type = "l", lwd = 2, ylim = c(5, 10), axes = F, 
    trace.label = "Race", xlab = "Sex", ylab = "Clock Drawing Total Score")
title(main = "IPV History")
axis(1, at = 1:2)
axis(2, at = seq(5, 10, 5))

plot of chunk unnamed-chunk-8