Display the operating characteristics using an oc object

Reads results from ocPredprob() etc. and displays a bar plot of the operating characteristics

Usage

vintage_plotOc(oc)

Arguments

oc

(list):
returned oc parameters

Value

nothing, only plots as side effect

Examples

# get operating character result from oc.postprob

oc <- ocPostprob(
  nnE = c(10, 20, 30), truep = 0.4, p0 = 0.2,
  p1 = 0.3, tL = 0.6, tU = 0.8, parE = c(1, 1), sim = 100, wiggle = FALSE
)
#> Warning: Advise to use sim >= 50000 to achieve convergence
oc$oc
#>   ExpectedN PrStopEarly PrEarlyEff PrEarlyFut PrEfficacy PrFutility PrGrayZone
#> 1      19.6        0.63       0.57       0.06       0.69       0.07       0.24
# plotOc(oc)


oc <- ocPostprob(
  nnE = c(10, 20, 30), truep = 0.4, p0 = 0.2,
  p1 = 0.3, tL = 0.6, tU = 0.8, parE = c(1, 1), sim = 100, wiggle = TRUE
)
#> Warning: Advise to use sim >= 50000 to achieve convergence
oc$oc
#>   ExpectedN PrStopEarly PrEarlyEff PrEarlyFut PrEfficacy PrFutility PrGrayZone
#> 1     17.86         0.7       0.66       0.04       0.79       0.05       0.16