make_model_string_model {psborrow2}

Create Stan Code for Model

Description

Create Stan Code for Model

Usage

make_model_string_model(borrowing, outcome, analysis_obj)

## S4 method for signature 'ANY,ANY,Analysis'
make_model_string_model(borrowing, outcome, analysis_obj)

## S4 method for signature 'BorrowingFull,ANY,Analysis'
make_model_string_model(borrowing, outcome, analysis_obj)

## S4 method for signature 'BorrowingNone,ANY,Analysis'
make_model_string_model(borrowing, outcome, analysis_obj)

## S4 method for signature 'BorrowingHierarchicalCommensurate,ANY,Analysis'
make_model_string_model(borrowing, outcome, analysis_obj)

Arguments

borrowing

borrowing object

outcome

outcome object

analysis_obj

analysis object

Value

glue character containing the Stan code for the data block.

Examples

anls_obj <- create_analysis_obj(
    data_matrix = example_matrix,
    outcome = outcome_surv_exponential(
      "time",
      "cnsr",
      baseline_prior = prior_normal(0, 1000)
    ),
    borrowing = borrowing_hierarchical_commensurate(
      "ext",
      prior_exponential(.001)
    ),
    treatment = treatment_details(
      "trt",
      prior_normal(0, 1000)
    ),
    covariates = add_covariates(
      covariates = c("cov1", "cov2"),
      priors = prior_normal(0, 1000)
    )
  )
make_model_string_model(anls_obj@borrowing, anls_obj@outcome, anls_obj)