From d1a283d9dbd2eb0387c269c17dd4867261f8a72e Mon Sep 17 00:00:00 2001
From: athowes <xwg3@cdc.gov>
Date: Tue, 16 Jul 2024 12:40:04 +0100
Subject: [PATCH] Get link functions (but they're names, how to get functions)

---
 tests/testthat/test-unit-postprocess.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/testthat/test-unit-postprocess.R b/tests/testthat/test-unit-postprocess.R
index c48d1bfba..45cbb9ad4 100644
--- a/tests/testthat/test-unit-postprocess.R
+++ b/tests/testthat/test-unit-postprocess.R
@@ -1,3 +1,7 @@
 prep_obs <- as_latent_individual(sim_obs)
 fit <- epidist(data = prep_obs, seed = 1)
 fit$fit
+
+# Names for the link functions needed
+fit$family$link
+fit$family$link_sigma