tests/testthat/test_gtoxAICProb.R

test_that("gtoxAICProb:returns the correct value", {
    tmp <- gtoxAICProb(80, 85, 95)[[1]]
    expect_equal(tmp[[1]], 0.9236697)
})
philipmorrisintl/GladiaTOX documentation built on Aug. 27, 2023, 9:07 p.m.