diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-31 11:47:23 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-31 11:47:23 +0100 |
| commit | 99947961be1cf0a7eed80426bc3d8cc6daa6d106 (patch) | |
| tree | 211d0400cc2fc4990a5e36f877273dde14549578 /tests/testthat/test_FOCUS_chi2_error_level.R | |
| parent | 669447c2a4581a4c8dba18ab40ba6938a42b8267 (diff) | |
Reorganize tests to reduce time on winbuilder
Diffstat (limited to 'tests/testthat/test_FOCUS_chi2_error_level.R')
| -rw-r--r-- | tests/testthat/test_FOCUS_chi2_error_level.R | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/tests/testthat/test_FOCUS_chi2_error_level.R b/tests/testthat/test_FOCUS_chi2_error_level.R index d7f8d9e7..d091cb95 100644 --- a/tests/testthat/test_FOCUS_chi2_error_level.R +++ b/tests/testthat/test_FOCUS_chi2_error_level.R @@ -18,10 +18,6 @@ context("Calculation of FOCUS chi2 error levels") -SFO_SFO.ff <- mkinmod(parent = list(type = "SFO", to = "m1"), - m1 = list(type = "SFO"), - use_of_ff = "max", quiet = TRUE) - errmin.FOCUS_2006_D_rounded = data.frame( err.min = c(0.0640, 0.0646, 0.0469), n.optim = c(4, 2, 2), @@ -36,16 +32,13 @@ errmin.FOCUS_2006_E_rounded = data.frame( test_that("Chi2 error levels for FOCUS D are as in mkin 0.9-33", { - fit <- expect_warning(mkinfit(SFO_SFO.ff, FOCUS_2006_D, quiet = TRUE), - "Observations with value of zero") - - - expect_equal(round(mkinerrmin(fit), 4), + expect_equal(round(mkinerrmin(f_sfo_sfo.ff), 4), errmin.FOCUS_2006_D_rounded) }) test_that("Chi2 error levels are independent of setting parms.ini that are not in the model", { + skip_on_cran() fit.2 <- expect_warning(mkinfit(SFO_SFO.ff, FOCUS_2006_D, quiet = TRUE, parms.ini = c(tb = 5)), "Observations with value of zero") |