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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.