tests/testthat/test_glComputeToxInd.R

test_that("glComputeToxInd:returns correct values", {
    options(warn=-1)
    tmp <- glComputeToxInd(asid=1L)[chnm=="acrylamide"]
    expect_equal(tmp$V1, 0.2048870242)
    options(warn=0)
})
philipmorrisintl/GladiaTOX documentation built on Aug. 27, 2023, 9:07 p.m.