# \donttest{
data(green_crab_data)
# Fit a model
model_fit <- joint_model(data = green_crab_data, family = "negbin", q = TRUE,
multicore = FALSE)
# Create summary table of all parameters
joint_summarize(model_fit$model)
# Summarize just 'p10' parameter
joint_summarize(model_fit$model, par = "p10", probs = c(0.025, 0.975),
digits = 3)
# }
Run the code above in your browser using DataLab