Make model string of Stan's functions model bloc

Create the Stan string encompassed by functions {}

Usage

make_model_string_functions(analysis_obj)

Arguments

analysis_obj

Analysis. Object of class Analysis created by psborrow2:::.analysis_obj().

Value

glue

character containing the text for the functions block.

Examples

anls_obj <- psborrow2:::.analysis_obj(
  data_matrix = example_matrix,
  outcome = exp_surv_dist("time", "cnsr", normal_prior(0, 100)),
  borrowing = borrowing_details(
    "Full borrowing",
    "ext"
  ),
  treatment = treatment_details("trt", normal_prior(0, 100))
)

psborrow2:::make_model_string_functions(anls_obj)
#> functions {
#>   
#> }