tests/testthat/test-ics.R

In mantar: Missingness Alleviation for Network Analysis

test_that("sample_size_full_works", {
  expect_equal(calculate_sample_size(data = mantar_dummy_full), rep(400, 8))
})

test_that("sample_size_mis_works", {
  expect_equal(calculate_sample_size(data = mantar_dummy_mis, n_calc = "Total"), rep(600, 8))
})

test_that("error_for_different_ncalc", {
  expect_error(
    calculate_sample_size(data = mantar_dummy_mis, n_calc = "abc"),
    class = "error"
  )
})

test_that("ic_calculated as number",{
  expect_equal(
    class(reg_ic_calc(resid_var = 1, n = 400, n_preds = 2, k = "log(n)")),
    "numeric"
  )
})