tests/testthat/test.check_YeoJohn.R

In akcochrane/ACmisc: Aaron Cochrane's miscellaneous functions

context("check_YeoJohn")

library(ACmisc)

### ###
test_that('YeoJohn de-skews a variable',{
  expect_equivalent({
    round(
      psych::skew(
        YeoJohn(ACmisc::dat_cochraneEtAl_2019_PLOSOne$enum)
    )
  ,2)},
    0)
})