Skip to content

Commit

Permalink
Add failing test
Browse files Browse the repository at this point in the history
  • Loading branch information
billdenney committed Jul 14, 2023
1 parent 81c53ea commit 2478053
Showing 1 changed file with 17 additions and 0 deletions.
17 changes: 17 additions & 0 deletions tests/testthat/test-simplify.R
Original file line number Diff line number Diff line change
@@ -115,3 +115,20 @@ test_that("nlmixr_object_simplify_zero_initial", {
new_model <- nlmixr_object_simplify_zero_initial(pheno)
expect_equal(body(new_model), body(pheno_0))
})

test_that("re-estimating a model works with covariates (#9)", {
bad_data_lower_case <- nlmixr2data::pheno_sd
bad_data_lower_case$id <- bad_data_lower_case$ID
fit_estimated <-
suppressMessages(
nlmixr2est::nlmixr(
object = model_simple,
data = nlmixr2data::pheno_sd,
est = "focei",
control = list(eval.max = 1)
)
)
expect_true(
"WT" %in% names(nlmixr_data_simplify(data = nlmixr2data::pheno_sd, object = fit_estimated))
)
})

0 comments on commit 2478053

Please sign in to comment.