t_int <- 567.43/23.9606
t_STR <- 7.15/0.8536
# check whether the t-tests reject
test <- c(t_int, t_STR)
# entry is `TRUE` if a test rejects
abs(test) >= qnorm(0.975)
test_or({
test <- c(t_int,t_STR)
},{
test <- c(t_STR, t_int)
})
test_or({
test_student_typed("abs(test) >= qnorm(0.975)")
},{
test_student_typed("abs(test) <= qnorm(0.975)")
})