diff --git a/NAMESPACE b/NAMESPACE index a3c488d..833c8bc 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -34,6 +34,7 @@ export(generate_start_tab) export(get_DOBs) export(get_antibody_level_predictions) export(get_best_pars) +export(get_demographic_groups) export(get_index_pars) export(get_n_alive) export(get_n_alive_group) diff --git a/R/helpers.R b/R/helpers.R index 4661ccd..f9f5534 100644 --- a/R/helpers.R +++ b/R/helpers.R @@ -512,6 +512,7 @@ setup_antibody_data_for_posterior_func <- function( )) } +#' @export get_demographic_groups <- function(par_tab, antibody_data, demographics,demographic_groups=NULL){ ## Setup data vectors and extract if(!is.null(demographics)){