tests/testthat/test-create_PSA.R

In n8thangreen/tb.outbreak.costing: What the Package Does (One Line, Title Case)

## from create_PSA_data.R


# check against means
# hist(sample_inc[[4]], breaks = 20)
# abline(v = tab_per_inc$mu_inc[4], col = "red")

# check against means
# hist(sample_screen[[5]], breaks = 40)
# abline(v = tab_per_inc$mu_pscreen[5], col = "red")

# # check against original data
# hist(sample_ltbi[30, ], breaks = 50)
# abline(col = "red", v = orig_dat$latent[20])