if (requireNamespace("apaTables", quietly = TRUE)){
library(dplyr)
goggles <- apaTables::goggles
# one-sided test
goggles %>%
filter(alcohol == "None") %>%
filter(gender == "Female" | gender == "Male") %>%
apa.ind.t.test(gender, attractiveness,
var.equal = TRUE, one.sided = TRUE)
#two-sided test
goggles %>%
filter(alcohol == "None") %>%
filter(gender == "Female" | gender == "Male") %>%
apa.ind.t.test(gender, attractiveness,
var.equal = TRUE, one.sided = FALSE)
#two-sided test with Bonferroni correction (three exploratory tests)
goggles %>%
filter(alcohol == "None") %>%
filter(gender == "Female" | gender == "Male") %>%
apa.ind.t.test(gender, attractiveness,
var.equal = TRUE, one.sided = FALSE,
bonferroni.multiplier = 3)
}
Run the code above in your browser using DataLab