Cognitive Test Means

Trail Making Test Part A

Psychological Aggression

Allvars %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(TrailsA),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            43.8
## 2 Yes           34.1

Physical Assault

Allvars %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(TrailsA),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           36.0
## 2 Yes          31.1

Trail Making Test Part B

Psychological Aggression

Allvars %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(TrailsB),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            119.
## 2 Yes           107.

Physical Assault

Allvars %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(TrailsB),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           109.
## 2 Yes          102.

Digit Span Forward

Psychological Aggression

Allvars %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(DigitSpanFwd),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            7.08
## 2 Yes           7.57

Physical Assault

Allvars %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(DigitSpanFwd),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           7.49
## 2 Yes          7.6

Digit Span Backward

Psychological Aggression

Allvars %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(DigitSpanBck),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            5.60
## 2 Yes           5.92

Physical Assault

Allvars %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(DigitSpanBck),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           5.84
## 2 Yes          6.2

Animal Naming Test

Psychological Aggression

Allvars %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(FluencyWord),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            19.0
## 2 Yes           19.7

Physical Assault

Allvars %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(FluencyWord),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           19.7
## 2 Yes          19.3

California Verbal Learning Test: Total Correct Trial A

Psychological Aggression

Allvars %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(CVLtca),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            18.0
## 2 Yes           20.0

Physical Assault

Allvars %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(CVLtca),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           19.6
## 2 Yes          20.6

California Verbal Learning Test: Short-Delayed Free Recall

Psychological Aggression

Allvars %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(CVLfrs),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            4.91
## 2 Yes           5.89

Physical Assault

Allvars %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(CVLfrs),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           5.73
## 2 Yes          5.98

California Verbal Learning Test: Long-Delayed Free Recall

Psychological Aggression

Allvars %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(CVLfrl),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            4.56
## 2 Yes           5.86

Physical Assault

Allvars %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(CVLfrl),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           5.63
## 2 Yes          6.06

Stroop Color-Word Test

Psychological Aggression

StroopMixed %>%                                       
  group_by(PsychAggress) %>%                        
  summarise_at(vars(StroopMixed),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PsychAggress  name
##   <fct>        <dbl>
## 1 No            29.3
## 2 Yes           33.3

Physical Assault

StroopMixed %>%                                       
  group_by(PhysAssault) %>%                        
  summarise_at(vars(StroopMixed),                        
  list(name = mean)) 

## # A tibble: 2 x 2
##   PhysAssault  name
##   <fct>       <dbl>
## 1 No           32.6
## 2 Yes          33.8