Get link functions (but they're names, how to get functions)

epinowcast · Jul 18, 2024 · d1a283d · d1a283d
1 parent 1e088c2
commit d1a283d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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