Make model string of Stan's transformed parameters model block

Create the Stan string encompassed by transformed parameters {}

Usage

make_model_string_transf_param(analysis_obj)

Arguments

analysis_obj

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

Value

glue

character containing the Stan code for the functions block.

Examples

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

psborrow2:::make_model_string_transf_param(anls_obj)
#> transformed parameters {
#> real HR_trt = exp(beta_trt); }