tests/testthat/test-nlmixr3-load.R

nmTest({
  test_that("nlmixr3 fit loads", {

    fit <- readRDS(system.file("testfit_nlmixr3.rds", package = "nlmixr2est"))

    expect_error(rxode2::rxSolve(fit))

    expect_snapshot(
      fit <- suppressMessages(nlmixr2fix(fit))
    )

    expect_error(rxode2::rxSolve(fit), NA)

  })
})

Try the nlmixr2est package in your browser

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

nlmixr2est documentation built on Aug. 8, 2025, 6:09 p.m.