diff --git a/R/par_tables_fn.R b/R/par_tables_fn.R index 52e16ce0..a09ba02c 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$", "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"), 1 + ci(pars[i,2], pars_sd[i,2], lo = 0, hi = 1, type = "expit")) # 1 < x < 2