From a9285f356f92e45dfec43ab6ad06d65b1ffe08d1 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 25 Feb 2019 21:15:51 +0100 Subject: Test AIC calculation --- tests/testthat/test_FOCUS_D_UBA_expertise.R | 1 + tests/testthat/test_parent_only.R | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test_FOCUS_D_UBA_expertise.R b/tests/testthat/test_FOCUS_D_UBA_expertise.R index 42c4fcfb..be6a8c9f 100644 --- a/tests/testthat/test_FOCUS_D_UBA_expertise.R +++ b/tests/testthat/test_FOCUS_D_UBA_expertise.R @@ -51,6 +51,7 @@ test_that("Fits with formation fractions are correct for FOCUS D", { c(7.02, 23.33)) expect_equal(round(as.numeric(endpoints(fit.ff)$distimes["m1", ]), 1), c(131.8, 437.7)) + expect_equivalent(AIC(fit.ff), 212.6, scale = 1, tolerance = 0.1) }) test_that("Fits without internal transformations are correct for FOCUS D", { diff --git a/tests/testthat/test_parent_only.R b/tests/testthat/test_parent_only.R index 7521e145..572047b7 100644 --- a/tests/testthat/test_parent_only.R +++ b/tests/testthat/test_parent_only.R @@ -1,4 +1,4 @@ -# Copyright (C) 2015,2018 Johannes Ranke +# Copyright (C) 2015,2018,2019 Johannes Ranke # Contact: jranke@uni-bremen.de # This file is part of the R package mkin -- cgit v1.2.1