tests/testthat/test.auto_normalize.r

In markanewman/AnalysisMacros: Analysis Macros

context("auto_normalize")

library(mnmacros)
#library(testthat)

model <-
  testdata.apply_bcskew0 %>%
  auto_normalize()

model$stats %>% is.null() %>% expect_false()
model$plot %>% is.null() %>% expect_false()
model$transformed %>% is.null() %>% expect_false()

exp <-
  c("agostino", "skew = 0.986 (p = 0.017)", "skew = 0.000 (p = 1.000)",
    "anscombe", "kurt = 3.773 (p = 0.172)", "kurt = 2.625 (p = 0.923)",
    "shapiro", "W = 0.918 (p = 0.018)", "W = 0.974 (p = 0.620)") %>%
  matrix(byrow = T, ncol = 3) %>%
  data.frame()
colnames(exp) <- c("Test", "Origional", "Transformed")
expect_identical(model$stats, data.frame(exp))

l <- attr(model$transformed, 'lamda')
expect_equal(l, -0.05313)