# Performing a unpaired two sample t-test.
library(dplyr)
mv <- soccer %>%
filter(!is.na(rater1), !is.na(rater2)) %>%
mverse()
x <- mutate_branch(
((rater1 + rater2) / 2) > mean((rater1 + rater2) / 2),
ifelse(rater1 > rater2, rater1 > 0.5, rater2 > 0.5)
)
y <- mutate_branch(
redCards, yellowCards, yellowReds
)
two_sample_form <- formula_branch(y ~ x)
mv <- mv %>%
add_mutate_branch(x, y) %>%
add_formula_branch(two_sample_form)
t_test_mverse(mv)
Run the code above in your browser using DataLab