aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_irls.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2018-09-15 11:43:28 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2018-09-15 11:43:28 +0200
commit2b5f8a4e6e743a483a2d9aa90ecbe89048f92262 (patch)
treec2d75a34e5432d72d5f9a41bdefc2162b1f38d1f /tests/testthat/test_irls.R
parent12de6321b48c5c002a75691414e1d52657747721 (diff)
Restore test as we removed cor test, bump version
Diffstat (limited to 'tests/testthat/test_irls.R')
-rw-r--r--tests/testthat/test_irls.R6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/testthat/test_irls.R b/tests/testthat/test_irls.R
index 6c8ad849..2517da47 100644
--- a/tests/testthat/test_irls.R
+++ b/tests/testthat/test_irls.R
@@ -46,7 +46,7 @@ test_that("Reweighting method 'tc' works", {
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))
- # In the dataset FOCUS_2006_C, no correlation between absolute residuals and observed
- # values is found
- expect_error(mkinfit("DFOP", FOCUS_2006_C, reweight.method = "tc", quiet = TRUE), "No correlation")
+ 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