tests/testthat/test_gtoxAICProb.R

test_that("gtoxAICProb:returns the correct value", {
    tmp <- gtoxAICProb(80, 85, 95)[[1]]
    expect_equal(tmp[[1]], 0.9236697)
})
pmpsa-hpc/GladiaTOX documentation built on Sept. 1, 2023, 5:52 p.m.