Format a design

Format a design

Usage

# S3 method for class 'qdm_design'
format(x, digits = 4L, ...)

Arguments

x

An object of class "qdm_design".

digits

Number of significant digits for numeric values.

...

Not used.

Value

A character vector with one element per line of the description.

Examples

des <- design_binary(
  n_t = 12, n_c = 12,
  prior_t = prior_beta(0.5, 0.5), prior_c = prior_beta(0.5, 0.5),
  criterion = criterion_posterior(theta_tv = 0.2, theta_mav = 0.1,
                                  gamma_go = 0.5, gamma_nogo = 0.8)
)
format(des)
#> [1] "Design: one binary endpoint"                                
#> [2] "  Treatment: n = 12, prior Beta(a = 0.5, b = 0.5)"          
#> [3] "  Control: concurrent, n = 12, prior Beta(a = 0.5, b = 0.5)"
#> [4] "Posterior probability criterion"                            
#> [5] "  Go:   P(theta > 0.2 | data) >= 0.5"                       
#> [6] "  NoGo: P(theta <= 0.1 | data) >= 0.8"