
  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)")
  })