tests/testthat/test_emax_xposeNlmeModel.R

In Certara.Xpose.NLME: Enhances 'xpose' Diagnostics for Pharmacometric Models from 'Certara.RsNLME' and Phoenix NLME

test_that("xposeNlmeModel works with emax model  ", {
  inputDir <- system.file("extdata/emax_xposeNlmeModel",
    package = "Certara.Xpose.NLME",
    mustWork = TRUE
  )

  requireNamespace("Certara.RsNLME", quietly = TRUE)
  load(file.path(inputDir, "emax_xposeNlmeModel_model.RData"))
  load(file.path(inputDir, "emax_xposeNlmeModel_result.RData"))

  xpdb <- xposeNlmeModel(
    model = model,
    fitmodelOutput = job
  )


  testthat::local_edition(3)
  testthat::expect_snapshot(tail(as.data.frame(xpdb$data$data[[1]])))
})