diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-11-13 21:15:35 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-11-13 21:15:35 +0100 |
| commit | c3700bec3a704660d3ade7a54c56b7084beb02b4 (patch) | |
| tree | 35fe23b6c9e2b3fd5c0bd66e9a4f8b24281302de /tests/testthat/test_aw.R | |
| parent | b0e529ff49dfa52568fe7c5e6e76439a83c62840 (diff) | |
Calculate Akaike weights
Diffstat (limited to 'tests/testthat/test_aw.R')
| -rw-r--r-- | tests/testthat/test_aw.R | 12 |
1 files changed, 12 insertions, 0 deletions
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") +}) |