diff options
| author | Johannes Ranke <johannes.ranke@jrwb.de> | 2018-09-13 23:50:21 +0200 |
|---|---|---|
| committer | Johannes Ranke <johannes.ranke@jrwb.de> | 2018-09-13 23:50:21 +0200 |
| commit | a5e2712cafd57239f69d58b8c7f16a1b2f4b7490 (patch) | |
| tree | f8d4c46df6b0b9c4a32ea0cdc90cf21d719bf57b /tests | |
| parent | 7dd447599435337f47d4fd9505187033681fde76 (diff) | |
| parent | feef7146a86b0e1b733b6df1df1420dd11101474 (diff) | |
Merge branch 'master' of jrwb.de:mkin
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testthat/test_irls.R | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/testthat/test_irls.R b/tests/testthat/test_irls.R index 6389b662..93d538de 100644 --- a/tests/testthat/test_irls.R +++ b/tests/testthat/test_irls.R @@ -45,4 +45,8 @@ test_that("Reweighting method 'tc' works", { fit_irls_2 <- mkinfit(m_synth_DFOP_par, DFOP_par_c, reweight.method = "tc", quiet = TRUE) parms_2 <- signif(fit_irls_2$bparms.optim, 3) expect_equivalent(parms_2, c(99.3, 0.041, 0.00962, 0.597, 0.393, 0.298, 0.0203, 0.707)) + + fit_irls_3 <- mkinfit("DFOP", FOCUS_2006_C, reweight.method = "tc", quiet = TRUE) + parms_3 <- signif(fit_irls_3$bparms.optim, 3) + expect_equivalent(parms_3, c(85.0, 0.46, 0.0178, 0.854)) }) |