unit tests for aic & bic

wjakethompson · Jan 15, 2025 · 540365b · 540365b
1 parent b7d666c
commit 540365b
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/tests/testthat/test-utils-model-evaluation.R b/tests/testthat/test-utils-model-evaluation.R
@@ -0,0 +1,20 @@
+test_that("aic works", {
+  num_params <- 101
+  logLik <- -18474.98
+
+  exp_aic <- (-2 * logLik) + (2 * num_params)
+  aic_val <- aic(rstn_dino)
+
+  expect_equal(exp_aic, aic_val)
+})
+
+test_that("bic works", {
+  num_params <- 101
+  N <- 1000
+  logLik <- -18474.98
+
+  exp_bic <- (-2 * logLik) + (log(N) * num_params)
+  bic_val <- bic(rstn_dino)
+
+  expect_equal(exp_bic, bic_val)
+})