Skip to contents

Plot a summary plot corresponding to the sumTable output

Source: R/plotDecision.R
plotDecision.Rd

This function will return a plot showing a curve of the prob of a meaningful improvement over estunated diff and a curve of the prob of a poor improvement over estunated diff

Usage 

plotDecision(data, Pos_cut, Neg_cut)

Arguments

data

the output object of sumTable

Pos_cut

a cut off for the prob of a meaningful improvement

Neg_cut

a cut off for the prob of a poor improvement

Value

the data item which was imputed to the function

Examples 

# sumTable ----
sumTable(
  x = 10,
  n = 20,
  parX = c(1, 1),
  go_cut = 0.8,
  stop_cut = 0.4
)
#>               summaries
#> responders        10.00
#> obs ORR [%]       50.00
#> mode [%]           0.00
#> CI lower [%]     -48.67
#> CI upper [%]      48.67
#> prob.go [%]        0.00
#> prob.nogo [%]     89.00

# plotting more results
summaries <- do.call(
  cbind,
  lapply(c(0:8),
    sumTable,
    n = 25,
    parX = c(1, 52),
    go_cut = 0.6,
    stop_cut = 0.2
  )
)

# plotDecision(summaries, Pos_cut = 60, Neg_cut = 60)