tests/testthat/test-SummarySingle.R

context("SummarySingle")

test_that("Size of data", {
    data(input)
    res <- SummarySingle(data=input, trt = "Arm", var = "OS")
    expect_equal(as.numeric(res["N", " (CTRL)"]) + as.numeric(res["N", " (TRT)"]), nrow(input))
})
lengning/gClinBiomarker documentation built on May 9, 2019, 2:55 p.m.