tests/testthat/test_dt2mat.R

context("dt2mat")

test_that("basic",{
    fileRef <- "testReference/dt2mat_1.rds"

    ext <- NMreadExt("testData/nonmem/xgxr021.mod",as.fun="data.table")

    omegas <- ext[par.type=="OMEGA"]
    
    res <- dt2mat(omegas)

    omegas[i==j,.(i,j,value)]
    omegas[i!=j,.(i,j,value)]
    res
    
    expect_equal_to_reference(res,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.