tests/testthat/test-sample_tb_year.R

context("sample_tb_year")

test_that("multiplication works", {



prob <- seq(from = 1, to = 0, by = -0.01)
prob <- prob/sum(prob)
death_issdt <- 80
fup_issdt <- 20

})
n8thangreen/LTBIscreeningproject documentation built on May 23, 2019, 12:01 p.m.