context("clustCoef")
data('simNorm')
results <- PCIT(simNorm[1:10, ])
test_that("clustCoef", {
expect_true(is.numeric(clustCoef(results$adj_sig)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.