tests/testthat/test-independence_test.R

In codalm: Transformation-Free Linear Regression for Compositional Outcomes and Predictors

test_that("independence test works with sequential evaluation", {
    require(gtools)
    require(future)
    set.seed(123)
    x <- rdirichlet(100, rep(1, 3))
    y <- rdirichlet(100, rep(1,3))
    oplan <- plan("list")
    p <- codalm_indep_test(y, x)
    expect_true(p > .05)
    expect_true(identical(plan("list"), oplan))
})
test_that("independence test works with multisession evaluation", {
    require(gtools)
    require(future)
    set.seed(123)
    x <- rdirichlet(100, rep(1, 3))
    y <- rdirichlet(100, rep(1,3))
    oplan <- plan("list")
    p <- codalm_indep_test(y, x, parallel = TRUE, strategy = 'multisession', ncpus = 2)
    expect_true(identical(plan("list"), oplan))
})