diff options
Diffstat (limited to 'tests/testthat/test_from_max_mean.R')
| -rw-r--r-- | tests/testthat/test_from_max_mean.R | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/testthat/test_from_max_mean.R b/tests/testthat/test_from_max_mean.R index c4d6bfe4..3edf5969 100644 --- a/tests/testthat/test_from_max_mean.R +++ b/tests/testthat/test_from_max_mean.R @@ -19,8 +19,7 @@ context("Test fitting the decline of metabolites from their maximum") test_that("Fitting from maximum mean value works", { - SFO_SFO <- mkinmod(parent = mkinsub("SFO", "m1"), - m1 = mkinsub("SFO")) + expect_warning( expect_error(mkinfit(SFO_SFO, FOCUS_2006_D, from_max_mean = TRUE), "only implemented for models with a single observed variable"), |