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)
        
})
philipdelff/NMdata documentation built on March 5, 2025, 12:20 a.m.