library(readxl)
Dataset_Aggression <- read_excel("C:/Reneika Thomas/Dataset_Aggression.xlsx")
View(Dataset_Aggression)
# Descriptive Statistics
condition_stats <- aggregate(. ~ graphic_type + violence_level, data = Dataset_Aggression, FUN = function(x) c(mean = mean(x), sd = sd(x)))
print(condition_stats)
## graphic_type violence_level participant.mean participant.sd
## 1 high high 3.000000 2.828427
## 2 low high 5.000000 2.828427
## 3 high low 4.000000 2.828427
## 4 low low 6.000000 2.828427
## physical_aggression.mean physical_aggression.sd verbal_aggression.mean
## 1 4.5000000 0.7071068 3.5000000
## 2 3.5000000 0.7071068 4.5000000
## 3 2.5000000 0.7071068 2.0000000
## 4 1.5000000 0.7071068 1.0000000
## verbal_aggression.sd hostility.mean hostility.sd anger.mean anger.sd
## 1 0.7071068 5.0000000 0.0000000 4.5000000 0.7071068
## 2 0.7071068 3.5000000 0.7071068 3.5000000 0.7071068
## 3 0.0000000 3.0000000 0.0000000 2.5000000 0.7071068
## 4 0.0000000 2.0000000 0.0000000 1.5000000 0.7071068
condition_1 <- subset(Dataset_Aggression, graphic_type == "high" & violence_level == "high")
summary(condition_1)
## participant graphic_type violence_level physical_aggression
## Min. :1 Length:2 Length:2 Min. :4.00
## 1st Qu.:2 Class :character Class :character 1st Qu.:4.25
## Median :3 Mode :character Mode :character Median :4.50
## Mean :3 Mean :4.50
## 3rd Qu.:4 3rd Qu.:4.75
## Max. :5 Max. :5.00
## verbal_aggression hostility anger
## Min. :3.00 Min. :5 Min. :4.00
## 1st Qu.:3.25 1st Qu.:5 1st Qu.:4.25
## Median :3.50 Median :5 Median :4.50
## Mean :3.50 Mean :5 Mean :4.50
## 3rd Qu.:3.75 3rd Qu.:5 3rd Qu.:4.75
## Max. :4.00 Max. :5 Max. :5.00
condition_2 <- subset(Dataset_Aggression, graphic_type == "high" & violence_level == "low")
summary(condition_2)
## participant graphic_type violence_level physical_aggression
## Min. :2 Length:2 Length:2 Min. :2.00
## 1st Qu.:3 Class :character Class :character 1st Qu.:2.25
## Median :4 Mode :character Mode :character Median :2.50
## Mean :4 Mean :2.50
## 3rd Qu.:5 3rd Qu.:2.75
## Max. :6 Max. :3.00
## verbal_aggression hostility anger
## Min. :2 Min. :3 Min. :2.00
## 1st Qu.:2 1st Qu.:3 1st Qu.:2.25
## Median :2 Median :3 Median :2.50
## Mean :2 Mean :3 Mean :2.50
## 3rd Qu.:2 3rd Qu.:3 3rd Qu.:2.75
## Max. :2 Max. :3 Max. :3.00
condition_3 <- subset(Dataset_Aggression, graphic_type == "low" & violence_level == "high")
summary(condition_3)
## participant graphic_type violence_level physical_aggression
## Min. :3 Length:2 Length:2 Min. :3.00
## 1st Qu.:4 Class :character Class :character 1st Qu.:3.25
## Median :5 Mode :character Mode :character Median :3.50
## Mean :5 Mean :3.50
## 3rd Qu.:6 3rd Qu.:3.75
## Max. :7 Max. :4.00
## verbal_aggression hostility anger
## Min. :4.00 Min. :3.00 Min. :3.00
## 1st Qu.:4.25 1st Qu.:3.25 1st Qu.:3.25
## Median :4.50 Median :3.50 Median :3.50
## Mean :4.50 Mean :3.50 Mean :3.50
## 3rd Qu.:4.75 3rd Qu.:3.75 3rd Qu.:3.75
## Max. :5.00 Max. :4.00 Max. :4.00
condition_4 <- subset(Dataset_Aggression, graphic_type == "low" & violence_level == "low")
summary(condition_4)
## participant graphic_type violence_level physical_aggression
## Min. :4 Length:2 Length:2 Min. :1.00
## 1st Qu.:5 Class :character Class :character 1st Qu.:1.25
## Median :6 Mode :character Mode :character Median :1.50
## Mean :6 Mean :1.50
## 3rd Qu.:7 3rd Qu.:1.75
## Max. :8 Max. :2.00
## verbal_aggression hostility anger
## Min. :1 Min. :2 Min. :1.00
## 1st Qu.:1 1st Qu.:2 1st Qu.:1.25
## Median :1 Median :2 Median :1.50
## Mean :1 Mean :2 Mean :1.50
## 3rd Qu.:1 3rd Qu.:2 3rd Qu.:1.75
## Max. :1 Max. :2 Max. :2.00
#ANOVA for Graphic Type and Violence Level
model <- aov(physical_aggression ~ graphic_type * violence_level, data = Dataset_Aggression)
summary(model)
## Df Sum Sq Mean Sq F value Pr(>F)
## graphic_type 1 2 2.0 4 0.1161
## violence_level 1 8 8.0 16 0.0161 *
## graphic_type:violence_level 1 0 0.0 0 1.0000
## Residuals 4 2 0.5
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1