From a8c0f4a0dcad2ed04c3c221fffdda3527d0ea858 Mon Sep 17 00:00:00 2001 From: Emily Liljestrand Date: Tue, 14 Apr 2026 18:03:08 -0400 Subject: [PATCH 1/2] Update par_tables_fn.R changed labeling on mvtweedie and fixed how it was being reported in the output table --- R/par_tables_fn.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/par_tables_fn.R b/R/par_tables_fn.R index 52e16ce0..db39eb9a 100644 --- a/R/par_tables_fn.R +++ b/R/par_tables_fn.R @@ -294,8 +294,8 @@ par_tables_fn <- function(mod, do.tex=FALSE, do.html=FALSE, od = NULL) } if(age_comp_models[i] == 10){ fe.names <- c(fe.names, paste0(startnames[i], " age comp, MV Tweedie: ", - c("$\\phi$", "power"))) - fe.vals <- c(fe.vals, exp(pars[i,1:2])) + c("$\\phi$", "$\\psi$"))) + fe.vals <- c(fe.vals, exp(pars[i,1]), 1+(1/(1+exp(-pars[i,2])))) fe.cis <- rbind(fe.cis, ci(pars[i,1], pars_sd[i,1], type = "exp"), 1 + ci(pars[i,2], pars_sd[i,2], lo = 0, hi = 1, type = "expit")) # 1 < x < 2 From 94db31f15ed26f81e754f2759bf5590e0fca0638 Mon Sep 17 00:00:00 2001 From: Emily Liljestrand Date: Wed, 15 Apr 2026 11:11:17 -0400 Subject: [PATCH 2/2] Update par_tables_fn.R Changed psi to p in the output for the multivariate tweedie distribution --- R/par_tables_fn.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/par_tables_fn.R b/R/par_tables_fn.R index db39eb9a..a09ba02c 100644 --- a/R/par_tables_fn.R +++ b/R/par_tables_fn.R @@ -294,7 +294,7 @@ par_tables_fn <- function(mod, do.tex=FALSE, do.html=FALSE, od = NULL) } if(age_comp_models[i] == 10){ fe.names <- c(fe.names, paste0(startnames[i], " age comp, MV Tweedie: ", - c("$\\phi$", "$\\psi$"))) + c("$\\phi$", "p"))) fe.vals <- c(fe.vals, exp(pars[i,1]), 1+(1/(1+exp(-pars[i,2])))) fe.cis <- rbind(fe.cis, ci(pars[i,1], pars_sd[i,1], type = "exp"),