diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2018-09-15 11:43:28 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2018-09-15 11:43:28 +0200 |
| commit | 2b5f8a4e6e743a483a2d9aa90ecbe89048f92262 (patch) | |
| tree | c2d75a34e5432d72d5f9a41bdefc2162b1f38d1f | |
| parent | 12de6321b48c5c002a75691414e1d52657747721 (diff) | |
Restore test as we removed cor test, bump version
| -rw-r--r-- | DESCRIPTION | 2 | ||||
| -rw-r--r-- | tests/testthat/test_irls.R | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index 17b873f1..1b5b399d 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: mkin Type: Package Title: Kinetic Evaluation of Chemical Degradation Data -Version: 0.9.47.5 +Version: 0.9.47.6 Date: 2018-09-14 Authors@R: c(person("Johannes", "Ranke", role = c("aut", "cre", "cph"), email = "jranke@uni-bremen.de", 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)) }) |