# Test of resCathData
data(resCathData)
d <- resCathData
testthat::expect_output(str(d), "data.frame")
testthat::expect_output(str(d), "cuv")
testthat::expect_output(str(d), "age")
testthat::expect_output(str(d), "rucv")
testthat::expect_gt(nrow(d), 3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.