tests/testthat/test-cdf_crossval.R

test_that("cdf_crossval works", {
    set.seed(1)
    x1 = rnorm(100, mean = 1.5, sd = 2)
    cdfp <- fitCDF(dt$x1, distNames = "Normal", plot = F)
    expect_true(cdf_crossval(model = cdfp$bestfit, q = x1) > 0.99)
})
genomaths/usefr documentation built on April 18, 2023, 3:35 a.m.