Print a calibration

Prints the chosen thresholds and the decision probabilities of the design with these thresholds under the two scenarios.

Usage

# S3 method for class 'qdm_calibration'
print(x, digits = 4L, ...)

Arguments

x

An object of class "qdm_calibration".

digits

Number of significant digits for numeric values.

...

Not used.

Value

x, invisibly.

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)
)
print(qdm_calibrate(des, data.frame(pi_t = 0.4, pi_c = 0.4),
                    data.frame(pi_t = 0.7, pi_c = 0.4),
                    target_go = 0.05, target_nogo = 0.2))
#> Calibration of the decision thresholds (exact enumeration of the outcomes)
#>   gamma_go   = 0.74: P(Go criterion met | scenario_go) = 0.03368 (target 0.05)
#>   gamma_nogo = 0.39: P(NoGo criterion met | scenario_nogo) = 0.182 (target 0.2)
#> Decision probabilities with the chosen thresholds
#>       scenario pi_t pi_c      Go   NoGo   Gray Miss
#>    scenario_go  0.4  0.4 0.03368 0.7338 0.2326    0
#>  scenario_nogo  0.7  0.4 0.36483 0.1820 0.4531    0