tests/testthat/test-summary.gcomp.R

context("test-summary.gcomp")

testthat::expect_output(print(summary(gComp(data = cvdd, Y = "DEATH", X = "DIABETES", Z = c("SEX", "AGE"), outcome.type  = "binary", R = 4))))


testthat::expect_type(summary(gComp(data = cvdd, Y = "DEATH", X = "DIABETES", Z = c("SEX", "AGE"), outcome.type  = "binary", R = 4)), "list")

testthat::expect_s3_class(summary(gComp(data = cvdd, Y = "DEATH", X = "DIABETES", Z = c("SEX", "AGE"), outcome.type  = "binary", R = 4)), class = "summary.gComp")
jgrembi/riskCommunicator documentation built on Feb. 4, 2023, 5:52 p.m.