tests/testthat/test_listMissings.R

context("listMissings")

test_that("basic",{
    NMdataConf(reset=TRUE)
    fileRef <- "testReference/listMissings_1.rds"

    pk <- readRDS(file="testData/data/xgxr2.rds")
    miss <- listMissings(pk)

    expect_equal_to_reference(miss,fileRef,version=2)

})

Try the NMdata package in your browser

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

NMdata documentation built on Nov. 11, 2023, 5:07 p.m.