Skip to contents

Print a decision

Source: R/print.qdm_decision.R
print.qdm_decision.Rd

Print a decision

Usage

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

Arguments

x

An object of class "qdm_decision".

...

Passed to format.qdm_decision.

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_predictive(theta_null = 0, m_t = 50,
                                   gamma_go = 0.9, gamma_nogo = 0.7)
)
print(qdm_decide(des, data_binary(12, 9), data_binary(12, 4)))
#> Decision: Go
#>   Go:   P(future theta > 0 | data) = 0.965 (threshold 0.9, met)
#>   NoGo: P(future theta <= 0 | data) = 0.03504 (threshold 0.7, not met)
#> Posterior distributions
#>   Treatment: Beta(a = 9.5, b = 3.5)
#>   Control:   Beta(a = 4.5, b = 8.5)