From c3700bec3a704660d3ade7a54c56b7084beb02b4 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 13 Nov 2019 21:15:35 +0100
Subject: Calculate Akaike weights

---
 tests/testthat/test_aw.R | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tests/testthat/test_aw.R

(limited to 'tests/testthat/test_aw.R')

diff --git a/tests/testthat/test_aw.R b/tests/testthat/test_aw.R
new file mode 100644
index 00000000..0a493893
--- /dev/null
+++ b/tests/testthat/test_aw.R
@@ -0,0 +1,12 @@
+context("Calculation of Akaike weights")
+
+test_that("Akaike weights sum to one", {
+  skip_on_cran()
+  aw_1 <- aw(fit_nw_1, fit_obs_1, fit_tc_1)
+  expect_error(aw(fit_nw_1, f_2_mkin), "same data")
+  expect_error(aw(fit_nw_1, 3), "mkinfit objects")
+  expect_equal(sum(aw_1), 1)
+  aw_2 <- aw(fits[c("SFO", "DFOP"), "FOCUS_D"])
+  expect_equal(sum(aw_2), 1)
+  expect_error(aw(fits), "mmkin column object")
+})
-- 
cgit v1.2.1