load(file="/Users/meganwilliams/Desktop/Dissertation Research /DATA Analysis/StroopMixed.rdata")
load(file="/Users/meganwilliams/Desktop/Dissertation Research /DATA Analysis/Allvars.rdata")
Trail Making Test part A
Allvars$TrailsAcat = as.factor(Allvars$TrailsA)
TrailsA x Psychological Aggression
TrailsATab = table(Allvars$PsychAggress,Allvars$TrailsAcat)
TrailsATab
##
## 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
## No 0 0 0 0 1 3 2 2 5 8 5 1 2 5 2 6 1 0 4 4 0 0 2 1 0 3 3 2 1 0 2 4 3 1 1 2 0 0
## Yes 2 7 6 14 16 15 18 25 22 26 22 30 21 22 24 15 22 20 11 20 12 22 12 6 13 8 9 7 3 10 15 4 6 7 6 3 3 3
##
## 52 53 55 56 57 58 59 60 61 62 63 65 66 67 69 70 73 74 77 79 81 83 85 88 117 125 600
## No 0 0 0 1 0 0 0 1 1 0 0 0 0 0 0 0 1 0 0 0 1 1 1 0 0 0 3
## Yes 4 4 4 3 2 2 1 2 1 2 3 2 1 1 1 1 1 2 1 1 2 0 0 1 1 1 4
TrailsA x Physical Assault
TrailsATab = table(Allvars$PhysAssault,Allvars$TrailsAcat)
TrailsATab
##
## 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
## No 2 6 6 12 15 17 18 20 25 29 23 25 20 25 22 18 19 17 14 17 12 21 13 6 13 10 10 8 4 8 16 7 8 5 4 5 3 3
## Yes 0 1 0 2 2 1 2 7 2 5 4 6 3 2 4 3 4 3 1 7 0 1 1 1 0 1 2 1 0 2 1 1 1 3 3 0 0 0
##
## 52 53 55 56 57 58 59 60 61 62 63 65 66 67 69 70 73 74 77 79 81 83 85 88 117 125 600
## No 4 4 4 4 2 2 0 3 2 2 3 2 1 1 1 1 1 2 1 1 2 1 1 1 1 1 7
## Yes 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0
Stroop Color Word Test - Trial 3 (Interference)
StroopMixed$StroopMixedcat = as.factor(StroopMixed$StroopMixed)
StroopMixed x Psychological Aggression
StroopMixedTab = table(StroopMixed$PsychAggress,StroopMixed$StroopMixedcat)
StroopMixedTab
##
## 2 4 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
## No 1 0 0 0 1 0 1 0 0 1 2 1 1 3 0 0 2 1 1 5 2 6 4 4 2 1 5 4 2 6 3 6 0 1 1 0 0 1
## Yes 0 2 1 1 1 1 1 2 1 3 3 3 6 3 9 5 3 9 10 5 19 12 11 17 23 14 21 21 15 13 17 21 22 23 14 14 17 17
##
## 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 62 66
## No 0 4 1 1 0 0 2 0 1 0 1 1 0 0 0 0 0 0 0 0 0
## Yes 8 10 11 5 9 6 5 2 6 2 6 3 6 3 1 1 1 1 1 1 1
StroopMixed x Physical Assault
StroopMixedTab = table(StroopMixed$PhysAssault,StroopMixed$StroopMixedcat)
StroopMixedTab
##
## 2 4 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
## No 1 2 1 0 2 1 2 2 0 4 3 4 7 5 7 4 5 9 10 9 19 18 14 21 21 12 24 25 16 16 14 25 18 20 12 11 17 17
## Yes 0 0 0 1 0 0 0 0 1 0 2 0 0 1 2 1 0 1 1 1 2 0 1 0 4 3 2 0 1 3 6 2 4 4 3 3 0 1
##
## 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 62 66
## No 8 13 11 5 8 5 6 0 6 2 6 4 4 3 1 1 1 0 1 1 1
## Yes 0 1 1 1 1 1 1 2 1 0 1 0 2 0 0 0 0 1 0 0 0
California Verbal Learning Test - Total Correct Trial A
Allvars$CVLtcacat = as.factor(Allvars$CVLtca)
CVLtca x Psychological Aggression
CVLtcaTab = table(Allvars$PsychAggress,Allvars$CVLtcacat)
CVLtcaTab
##
## 0 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 40
## No 2 0 1 1 1 1 2 4 1 4 2 6 4 6 4 6 2 3 4 8 4 2 1 1 2 4 1 0 2 2 1 1 2 0 0 1 0 0
## Yes 22 1 0 1 2 6 6 10 10 13 17 13 28 18 31 33 26 25 31 27 27 21 23 18 22 21 23 15 14 9 14 8 4 4 6 2 2 1
##
## 43
## No 0
## Yes 1
CVLtca x Physical Aggression
CVLtcaTab = table(Allvars$PhysAssault,Allvars$CVLtcacat)
CVLtcaTab
##
## 0 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 40
## No 21 0 1 2 3 6 8 12 10 16 17 18 28 24 29 34 22 26 31 29 29 20 20 15 22 21 19 15 14 9 13 8 4 4 6 2 1 1
## Yes 3 1 0 0 0 1 0 2 1 1 2 1 4 0 6 5 6 2 4 6 2 3 4 4 2 4 5 0 2 2 2 1 2 0 0 1 1 0
##
## 43
## No 1
## Yes 0
California Verbal Learning Test - Long Delayed Free Recall
Allvars$CVLfrlcat = as.factor(Allvars$CVLfrl)
CVLfrl x Psychological Aggression
CVLfrlTab = table(Allvars$PsychAggress,Allvars$CVLfrlcat)
CVLfrlTab
##
## 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
## No 9 7 11 9 6 11 13 8 2 2 4 1 2 0 1 0
## Yes 43 22 27 41 62 76 61 54 42 27 47 24 13 11 4 1
CVLfrl x Physical Aggression
CVLfrlTab = table(Allvars$PhysAssault,Allvars$CVLfrlcat)
CVLfrlTab
##
## 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
## No 45 27 35 42 59 79 64 57 36 27 42 23 11 9 4 1
## Yes 7 2 3 8 9 8 10 5 8 2 9 2 4 2 1 0
California Verbal Learning Test - Short Delayed Free Recall
Allvars$CVLfrscat = as.factor(Allvars$CVLfrs)
CVLfrs x Psychological Aggression
CVLfrsTab = table(Allvars$PsychAggress,Allvars$CVLfrscat)
CVLfrsTab
##
## 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
## No 7 6 8 12 8 11 12 4 3 8 3 1 0 2 1 0
## Yes 42 16 38 38 72 44 72 47 58 41 34 28 14 9 1 1
CVLfrl x Physical Aggression
CVLfrsTab = table(Allvars$PhysAssault,Allvars$CVLfrscat)
CVLfrsTab
##
## 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
## No 42 20 42 40 73 48 72 50 53 44 29 24 12 10 2 0
## Yes 7 2 4 10 7 7 12 1 8 5 8 5 2 1 0 1