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)
})

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.