tests/testthat/test_ttest_all.R

In samuelkaminsky/SKTools: SK's Tools

library(SKTools)

test.example <- 
  ttest_all(mtcars, c(carb, mpg), c(cyl, drat), perc = .2) %>%
  dplyr::filter(.data$IV == "mpg", .data$DV == "cyl", .data$Cutoff.Perc == "45%") %>%
  dplyr::pull(.data$conf.high) %>%
  round(6)

test_that("ttest_all has predictable result for mtcars", {
  expect_equal(
    test.example,
    3.506439
  )
})