tests/testthat/test-descriptives-helpers.R

In JWileymisc: Miscellaneous Utilities and Functions

test_that(".styleaov works", {
  expect_equal(
    "F(1, 30) = 79.56, p < .001, Eta-squared = 0.73",
    JWileymisc:::.styleaov(mtcars$mpg, mtcars$cyl, digits = 2L, pdigits = 3L))
})

test_that(".style2sttest works", {
  expect_equal(
    "t(df=30) = -4.11, p < .001, d = 1.48",
    JWileymisc:::.style2sttest(mtcars$mpg, mtcars$am, digits = 2L, pdigits = 3L))
})

test_that(".stylepairedttest works", {
  expect_equal(
    "t(df=9) = 4.06, p = .003, d = 1.28",
    JWileymisc:::.stylepairedttest(sleep$extra, sleep$group, sleep$ID, digits = 2L, pdigits = 3L))
})

test_that(".stylepairedwilcox works", {
  expect_warning(expect_warning(
    res <- JWileymisc:::.stylepairedwilcox(sleep$extra, sleep$group, sleep$ID, digits = 2L, pdigits = 3L)))

  expect_equal(
    "Wilcoxon Paired V = 45.00, p = .009",
    res)
})

test_that(".stylepairedmcnemar works", {
  exdata <- structure(list(
    ID = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 
           1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L),
    Time = c("base", "base", 
             "base", "base", "base", "base", "base", "base", "base", "base", 
             "post", "post", "post", "post", "post", "post", "post", "post", 
             "post", "post"),
    Rating = c("bad", "bad", "bad", "bad", "good", 
               "bad", "good", "good", "good", "bad", "bad", "bad", "bad", "good", 
               "bad", "bad", "bad", "good", "bad", "bad")),
    row.names = c(NA, -20L), class = c("data.frame"))

  res <- JWileymisc:::.stylepairedmcnemar(
    exdata$Rating, exdata$Time, exdata$ID, digits = 2L, pdigits = 3L)

  expect_equal(
    "McNemar's Chi-square = 0.25, df = 1, p = .617",
    res)
})

test_that(".stylekruskal works", {
  expect_equal(
    "KW chi-square = 9.79, df = 1, p = .002",
    JWileymisc:::.stylekruskal(mtcars$mpg, mtcars$am, digits = 2L, pdigits = 3L))

  expect_equal(
    "KW chi-square = 25.75, df = 2, p < .001",
    JWileymisc:::.stylekruskal(mtcars$mpg, mtcars$cyl, digits = 2L, pdigits = 3L))
})

test_that(".stylechisq works", {
  expect_warning(res <- JWileymisc:::.stylechisq(mtcars$cyl, mtcars$am, digits = 2L, pdigits = 3L))
  expect_equal(
    "Chi-square = 8.74, df = 2, p = .013, Cramer's V = 0.52",
    res)
})

test_that(".stylemsd works", {
  expect_equal(
    "20.09 (6.03)",
    JWileymisc:::.stylemsd("Miles per Gallon", mtcars$mpg)$Res)
})

test_that(".stylemdniqr works", {
  expect_equal(
    "19.20 (7.38)",
    JWileymisc:::.stylemdniqr("Miles per Gallon", mtcars$mpg)$Res)
})

test_that(".stylefreq works", {
  expect_equal(
    c("", "19 (59.4%)", "13 (40.6%)"),
    JWileymisc:::.stylefreq("Transmission", mtcars$am)$Res)
})