Formats the decision intervals of qdm_boundary as tables
with one row per condition and one column per decision: the range of the
observed quantity (numbers of responders or events, or observed means),
and the corresponding observed response rates (binary endpoint) or
milestone survival probabilities (time-to-event endpoint) and observed
treatment effects.
Usage
# S3 method for class 'qdm_boundary'
format(x, digits = 4L, n = 20L, ...)Value
A character vector with one element per line of the tables
(print.qdm_boundary prints them). For rows subset from
the object, which no longer have its attributes, the formatted data
frame.
Examples
des <- design_binary(
n_t = 20, n_c = 0, prior_t = prior_beta(1, 1),
criterion = criterion_posterior(theta_tv = 0.2, theta_mav = 0.05,
gamma_go = 0.8, gamma_nogo = 0.8),
fixed_c = 0.2
)
format(qdm_boundary(des, n_t = c(10, 20)))
#> [1] "Decision boundary of a design with one binary endpoint"
#> [2] ""
#> [3] "Responders in the treatment group (y_t)"
#> [4] " n_t NoGo Gray Go"
#> [5] " 10 0-1 2-5 6-10"
#> [6] " 20 0-3 4-9 10-20"
#> [7] ""
#> [8] "Observed response rate (y_t / n_t)"
#> [9] " n_t NoGo Gray Go"
#> [10] " 10 0.0% to 10.0% 20.0% to 50.0% 60.0% to 100.0%"
#> [11] " 20 0.0% to 15.0% 20.0% to 45.0% 50.0% to 100.0%"
#> [12] ""
#> [13] "Observed difference from the fixed control rate (y_t / n_t - 0.2)"
#> [14] " n_t NoGo Gray Go"
#> [15] " 10 -0.2 to -0.1 0 to 0.3 0.4 to 0.8"
#> [16] " 20 -0.2 to -0.05 0 to 0.25 0.3 to 0.8"