tests/testthat/test-Jarque_Bera_test.R

In normality: Tests for Departure from Normality

test_that("Jarque_Bera_test", {
    cholesterol <- c(393, 353, 334, 336, 327, 300, 300, 308, 283, 285,
                     270, 270, 272, 278, 278, 263, 264, 267, 267, 267,
                     268, 254, 254, 254, 256, 256, 258, 240, 243, 246,
                     247, 248, 230, 230, 230, 230, 231, 232, 232, 232,
                     234, 234, 236, 236, 238, 220, 225, 225, 226, 210,
                     211, 212, 215, 216, 217, 218, 200, 202, 192, 198,
                     184, 167)

    jb_out <- Jarque_Bera_test(cholesterol, silent = TRUE)
    testthat::expect_equal(jb_out[["is_normal"]], FALSE)
})