aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2018-09-13 23:44:42 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2018-09-13 23:44:42 +0200
commitfeef7146a86b0e1b733b6df1df1420dd11101474 (patch)
tree945bc02ce113930de28bcdc62769faf915ac14ae /tests/testthat
parentf17a9576092cd3fc4e7c8063383f5d4977ca4108 (diff)
Enable new error model in gmkin
Also improve the irls fitting of the error model and add a test for FOCUS_2006_C where the second component of the error model is zero
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/test_irls.R4
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))
})

Contact - Imprint