From 656466946f093617ababebe5ec3b36809234112a Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 15 May 2015 08:49:40 +0200 Subject: Finished migration from RUnit to testthat --- tests/testthat/test_FOCUS_chi2_error_level.R | 53 ++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) create mode 100644 tests/testthat/test_FOCUS_chi2_error_level.R (limited to 'tests/testthat/test_FOCUS_chi2_error_level.R') diff --git a/tests/testthat/test_FOCUS_chi2_error_level.R b/tests/testthat/test_FOCUS_chi2_error_level.R new file mode 100644 index 00000000..65e1ada7 --- /dev/null +++ b/tests/testthat/test_FOCUS_chi2_error_level.R @@ -0,0 +1,53 @@ +# Copyright (C) 2014-15 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 + +# These tests were migrated from inst/unitTests/runit.mkinerrmin.R + +context("Calculation of FOCUS chi2 error levels") + +SFO_SFO.ff <- mkinmod(parent = list(type = "SFO", to = "m1"), + m1 = list(type = "SFO"), + use_of_ff = "max") + +test_that("Chi2 error levels for FOCUS D are as in mkin 0.9-33", { + + fit <- mkinfit(SFO_SFO.ff, FOCUS_2006_D, quiet = TRUE) + + errmin.FOCUS_2006_D_rounded = data.frame( + err.min = c(0.0640, 0.0646, 0.0469), + n.optim = c(4, 2, 2), + df = c(15, 7, 8), + row.names = c("All data", "parent", "m1")) + + expect_equal(round(mkinerrmin(fit), 4), + errmin.FOCUS_2006_D_rounded) +}) + +test_that("Chi2 error levels for FOCUS E are as in mkin 0.9-33", { + + fit <- mkinfit(SFO_SFO.ff, FOCUS_2006_E, quiet = TRUE) + + errmin.FOCUS_2006_E_rounded = data.frame( + err.min = c(0.1544, 0.1659, 0.1095), + n.optim = c(4, 2, 2), + df = c(13, 7, 6), + row.names = c("All data", "parent", "m1")) + + expect_equal(round(mkinerrmin(fit), 4), + errmin.FOCUS_2006_E_rounded) +}) -- cgit v1.2.1