tests/testthat/test_NMreadShk.R

context("NMreadShk")

NMdataConf(reset=TRUE)

test_that("Basic",{
    fileRef <- "testReference/NMreadShk_01.rds"
    file.mod <- "testData/nonmem/xgxr032.mod"

    res <- NMreadShk(file.mod)

    expect_equal_to_reference(res,fileRef)

    ref <- readRDS(fileRef)
    ref
    res
})

Try the NMdata package in your browser

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

NMdata documentation built on Sept. 11, 2024, 6:16 p.m.