From 70d158c4dd919f4f77bc12f8ace333d29d249b79 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 14 Sep 2018 16:57:17 +0200 Subject: 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 --- tests/testthat/test_irls.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'tests') 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 -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") }) -- cgit v1.2.1