Skip to contents

Print a design

Source: R/print.qdm_design.R
print.qdm_design.Rd

Print a design

Usage

# S3 method for class 'qdm_design'
print(x, ...)

Arguments

x

An object of class "qdm_design".

...

Passed to format.qdm_design.

Value

x, invisibly.

Examples

des <- design_binary(
  n_t = 12, n_c = 0,
  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),
  hypothetical_c = hypothetical(data = data_binary(n = 12, y = 4))
)
print(des)
#> Design: one binary endpoint
#>   Treatment: n = 12, prior Beta(a = 0.5, b = 0.5)
#>   Control: hypothetical, prior Beta(a = 0.5, b = 0.5)
#>     Hypothetical control: data (binary, n = 12, y = 4)
#> Posterior probability criterion
#>   Go:   P(theta > 0.2 | data) >= 0.5
#>   NoGo: P(theta <= 0.1 | data) >= 0.8