tests/testthat/test_addCor.R

library(data.table)
context("addCor")

test_that("basic",{

    fileRef <- "testReference/addOmegaCorr_01.rds"
    file.mod <- "testData/nonmem/xgxr022.mod"

    ext <- NMreadExt(file.mod)

    res1 <- addCor(ext)

    res1
    expect_equal_to_reference(res1,fileRef)
        
})

Try the NMdata package in your browser

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

NMdata documentation built on April 4, 2025, 2:11 a.m.