set.seed(1)
tt1 <- t.test(rnorm(20, 0.1), mu = 0) # one-sample
cat(trainer_t_test(tt1, audience = "beginner"))
x <- rnorm(18, 0); y <- rnorm(20, 0.3)
tt2 <- t.test(x, y, var.equal = FALSE) # two-sample Welch
cat(trainer_t_test(tt2, audience = "applied", summary_only = TRUE))
Run the code above in your browser using DataLab