Make model string of Stan's data block

Create the Stan string encompassed by data {}

Usage

make_model_string_data(analysis_obj)

Arguments

analysis_obj

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

Value

glue

character containing the text for the data 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_data(anls_obj)
#> data {
#>   int<lower=0> N;
#>   vector[N] trt;
#>   vector[N] time;
#> vector[N] cens;
#> 
#>   
#>   
#> }