diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-21 15:31:59 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-21 15:31:59 +0200 |
| commit | 41a2a356bd9b61c90c04b47aee147bf837223028 (patch) | |
| tree | 8bc2649d36faefede800e058a86bd0c322625fbd /tests/testthat/test_FOCUS_D_UBA_expertise.R | |
| parent | 7624a2b8398b4ad665a3b0b622488e1893a5ee7c (diff) | |
Improve tests, remove geometric_mean
Diffstat (limited to 'tests/testthat/test_FOCUS_D_UBA_expertise.R')
| -rw-r--r-- | tests/testthat/test_FOCUS_D_UBA_expertise.R | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/tests/testthat/test_FOCUS_D_UBA_expertise.R b/tests/testthat/test_FOCUS_D_UBA_expertise.R index a282f5e7..614305b1 100644 --- a/tests/testthat/test_FOCUS_D_UBA_expertise.R +++ b/tests/testthat/test_FOCUS_D_UBA_expertise.R @@ -19,12 +19,6 @@ context("Results for FOCUS D established in expertise for UBA (Ranke 2014)") # Results are from p. 40 -SFO_SFO <- mkinmod(parent = list(type = "SFO", to = "m1"), - m1 = list(type = "SFO"), quiet = TRUE) -SFO_SFO.ff <- mkinmod(parent = list(type = "SFO", to = "m1"), - m1 = list(type = "SFO"), - use_of_ff = "max", quiet = TRUE) - test_that("Fits without formation fractions are correct for FOCUS D", { fit.default <- expect_warning(mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE), "value of zero") |