From 9cb1cebc1dcb85b1474b560210bf3939c0dc8da0 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 6 Feb 2018 17:15:22 +0100 Subject: Skip some tests on CRAN, more quiet examples --- tests/testthat/test_schaefer07_complex_case.R | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'tests/testthat/test_schaefer07_complex_case.R') diff --git a/tests/testthat/test_schaefer07_complex_case.R b/tests/testthat/test_schaefer07_complex_case.R index 1b51e5d2..80306bbe 100644 --- a/tests/testthat/test_schaefer07_complex_case.R +++ b/tests/testthat/test_schaefer07_complex_case.R @@ -1,4 +1,4 @@ -# Copyright (C) 2014-2015 Johannes Ranke +# Copyright (C) 2014-2015,2018 Johannes Ranke # Contact: jranke@uni-bremen.de # This file is part of the R package mkin @@ -20,19 +20,20 @@ context("Complex test case from Schaefer et al. (2007) Piacenza paper") -schaefer07_complex_model <- mkinmod( - parent = list(type = "SFO", to = c("A1", "B1", "C1"), sink = FALSE), - A1 = list(type = "SFO", to = "A2"), - B1 = list(type = "SFO"), - C1 = list(type = "SFO"), - A2 = list(type = "SFO"), use_of_ff = "max", quiet = TRUE) +test_that("Complex test case from Schaefer (2007) can be reproduced (10% tolerance)", { + + skip_on_cran() + schaefer07_complex_model <- mkinmod( + parent = list(type = "SFO", to = c("A1", "B1", "C1"), sink = FALSE), + A1 = list(type = "SFO", to = "A2"), + B1 = list(type = "SFO"), + C1 = list(type = "SFO"), + A2 = list(type = "SFO"), use_of_ff = "max", quiet = TRUE) -schaefer07_long <- mkin_wide_to_long(schaefer07_complex_case, time = "time") + schaefer07_long <- mkin_wide_to_long(schaefer07_complex_case, time = "time") -fit.default <- mkinfit(schaefer07_complex_model, schaefer07_long, quiet = TRUE) + fit.default <- mkinfit(schaefer07_complex_model, schaefer07_long, quiet = TRUE) -test_that("Complex test case from Schaefer (2007) can be reproduced (10% tolerance)", { - s <- summary(fit.default) r <- schaefer07_complex_results @@ -57,12 +58,11 @@ test_that("Complex test case from Schaefer (2007) can be reproduced (10% toleran r$means <- (r$KinGUI + r$ModelMaker)/2 r$mkin.deviation <- abs(round(100 * ((r$mkin - r$means)/r$means), digits=1)) expect_equal(r$mkin.deviation < 10, rep(TRUE, 14)) -}) -test_that("We avoid the local minumum with default settings", { # If we use optimisation algorithm 'Marq' we get a local minimum with a # sum of squared residuals of 273.3707 # When using 'Marq', we need to give a good starting estimate e.g. for k_A2 in # order to get the optimum with sum of squared residuals 240.5686 expect_equal(round(fit.default$ssr, 4), 240.5686) }) + -- cgit v1.2.1