
      t_int <- 567.43/23.9606
      t_STR <- 7.15/0.8536


      # comprobar si las pruebas t rechazan la hipótesis nula


      test <- c(t_int, t_STR)

      # entrada es "VERDADERO" (`TRUE`) si una prueba es rechazada
      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)")
      })