tests/testthat/test-resmod.R

context("test-resmod")

test_that("reading resmod results works", {
  tab <- read_resmod_table("data/resmod_results.csv")
  expect_is(tab, "data.frame")
  expect_equal(colnames(tab), c("iteration", "dvid", "model", "dofv", "prms"))
})
UUPharmacometrics/pmutils documentation built on July 4, 2023, 1:15 a.m.