tests/testthat/test_NMexpandDoses.R

In philipdelff/NMdata: Preparation, Checking and Post-Processing Data for PK/PD Modeling

context("NMexpandDoses")

test_that("basic",{
    fileRef <- "testReference/NMexpandDoses_01.rds"
    
    mad <- readRDS("testData/data/mad.rds")

    res <- NMexpandDoses(mad,as.fun="data.table")

    expect_equal_to_reference(res,fileRef,version=2)
})


test_that("keep track of expansions",{
    fileRef <- "testReference/NMexpandDoses_02.rds"
    
    mad <- readRDS("testData/data/mad.rds")

    res <- NMexpandDoses(mad,as.fun="data.table",track.expand = T)

    expect_equal_to_reference(res,fileRef,version=2)
})