tests/testthat/test_gtoxAICProb.R

test_that("gtoxAICProb:returns the correct value", {
    tmp <- gtoxAICProb(80, 85, 95)[[1]]
    expect_equal(tmp[[1]], 0.9236697)
})

Try the GladiaTOX package in your browser

Any scripts or data that you put into this service are public.

GladiaTOX documentation built on Nov. 15, 2020, 2:07 a.m.