tests/testthat/test_clustCoef.R

context("clustCoef")

data('simNorm')
results <- PCIT(simNorm[1:10, ])

test_that("clustCoef", {
  expect_true(is.numeric(clustCoef(results$adj_sig)))
})
cbiagii/ceTF documentation built on Feb. 6, 2023, 9:05 p.m.