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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.