From 5447af959b2a9b0dc52695bf6a309f346ced085a Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Sat, 22 Jul 2017 16:48:11 +0200 Subject: Remove this test as results are platform dependent On my box and winbuilder it was OK, but the CRAN checks show some different behaviour, so the results seem to be too ill-defined for testing for the type of warning. I had skipped this test earlier as it failed on r-forge. --- tests/testthat/test_FOMC_ill-defined.R | 44 ---------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 tests/testthat/test_FOMC_ill-defined.R diff --git a/tests/testthat/test_FOMC_ill-defined.R b/tests/testthat/test_FOMC_ill-defined.R deleted file mode 100644 index ee3d2b68..00000000 --- a/tests/testthat/test_FOMC_ill-defined.R +++ /dev/null @@ -1,44 +0,0 @@ -# Copyright (C) 2016 Johannes Ranke -# Contact: jranke@uni-bremen.de - -# This file is part of the R package mkin - -# mkin is free software: you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation, either version 3 of the License, or (at your option) any later -# version. - -# This program is distributed in the hope that it will be useful, but WITHOUT -# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more -# details. - -# You should have received a copy of the GNU General Public License along with -# this program. If not, see - -context("Fitting the FOMC model with large parameter correlation") - -# Dataset that I ran across during my work and for which the calculation of the -# Jacobian failed. Data were slightly fuzzed. -FOMC_test <- data.frame( - name = "test_compound", - time = c(0, 14, 31, 59, 91), - value = c(45.8, 28.0, 28.5, 35.1, 35.6)) - -test_that("Fitting with large parameter correlation gives warnings", { - - #skip("Skip test for warnings triggered by large parameter correlation as it failed on r-forge") - - # When fitting from the maximum, the Port algorithm does not converge (with - # default settings) - expect_warning( - fit.FOMC.Port <- mkinfit("FOMC", FOMC_test, method.modFit = "Port"), - "Optimisation by method Port did not converge") - - # When we use Levenberg-Marquardt, we get a problem estimating the Jacobian - # for the untransformed model - expect_warning( - fit.FOMC.Marq <- mkinfit("FOMC", FOMC_test, method.modFit = "Marq"), - "Calculation of the Jacobian failed for the cost function of the untransformed model") - -}) -- cgit v1.2.1