tests/testthat/test_clustCoefPercentage.R

context("clustCoefPercentage")

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

test_that("clustCoefPercentage", {
  expect_true(is.numeric(clustCoefPercentage(results$adj_sig)))
})
cbiagii/pcitRif documentation built on Feb. 5, 2023, 9:03 p.m.