tests/testthat/test_notime_model.R

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

test_that("xpose used for no time-based model  ", {
  workingDir <- system.file("extdata/notime_model",
    package = "Certara.Xpose.NLME",
    mustWork = TRUE
  )
  modelName <- "noTimeModel"

  xpdb <- xposeNlme(
    dir = workingDir,
    modelName = modelName,
    dmpFile = "dmp.txt",
    dataFile = "data1.txt",
    logFile = "nlme7engine.log",
    progresstxt = "progress.txt"
  )


  results <- xpdb$data$index[[1]]
  testthat::local_edition(3)
  testthat::expect_snapshot(as.data.frame(xpdb$data$index[[1]]))
})