aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2018-09-14 16:57:17 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2018-09-14 17:00:08 +0200
commit70d158c4dd919f4f77bc12f8ace333d29d249b79 (patch)
treeab0dd14d85a0c1506262bb6866e2cc49c2400389 /tests/testthat
parentd52e522a9abea09fae1189b066e2a2e1dbb9cb34 (diff)
Remove two vignettes from the package but not from docs
- Rebuild static documentation - Adapt test to new approach to two component error model where the model is inadequate
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/test_irls.R8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/testthat/test_irls.R b/tests/testthat/test_irls.R
index 93d538de..6c8ad849 100644
--- a/tests/testthat/test_irls.R
+++ b/tests/testthat/test_irls.R
@@ -16,7 +16,7 @@
# You should have received a copy of the GNU General Public License along with
# this program. If not, see <http://www.gnu.org/licenses/>
-context("Iteratively reweighed least squares (IRLS) fitting")
+context("Iteratively reweighted least squares (IRLS) fitting")
m_synth_SFO_lin <- mkinmod(parent = mkinsub("SFO", "M1"),
@@ -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))
- 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))
+ # 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")
})

Contact - Imprint