tests/testthat/test_mat2dt.R

context("mat2dt")

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

    cov <- NMreadCov("testData/nonmem/xgxr032.cov")

    res <- mat2dt(cov,triangle="upper")

    
    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.