tests/testthat/testData.R

# 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)
OlivierGranacher/modelCathRes documentation built on June 23, 2022, 3:03 p.m.