tests/testthat/test-t-test.R

In stp4/stp25stat: Functions for statistical computations

context("test-t-test")

test_that("Tabelle t works", {
  expect_equal(APA(t.test(m1 ~ geschl, varana, var.equal = FALSE)),
               "T(23)=0.32, p=.752")

  expect_equal(
    Tabelle(m1 + m2 ~ geschl, varana, test = "t.test", APA = TRUE)[[1]][1, 6],
    "T(23)=0.32, p=.752"
  )

  expect_equal(APA2(m1 + m2 ~ geschl, varana, test = "t.test", output=FALSE)[[1]][1, 6],
               "T(23)=0.32, p=.752")
})