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

summaries <- do.call(
  cbind,
  lapply(c(0:8),
    sumTable,
    TotalSample = 25,
    parX = c(1, 52),
    cut_B = 0.2,
    cut_W = 0.05
  )
)

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

#>               summaries summaries summaries summaries summaries summaries
#> # resp             0.00      1.00      2.00      3.00      4.00      5.00
#> obs ORR [%]        0.00      4.00      8.00     12.00     16.00     20.00
#> mode [%]           0.00      1.02      4.80      8.83     12.92     17.04
#> CI lower [%]      -4.55     -2.42     -0.24      2.03      4.55      7.27
#> CI upper [%]      17.51     13.05     18.83     24.07     28.97     33.64
#> prob.go [%]        0.05      0.74      3.79     11.58     25.23     43.17
#> prob.nogo [%]     93.39     66.49     36.46     16.09      6.00      1.98
#>               summaries summaries summaries
#> # resp             6.00      7.00      8.00
#> obs ORR [%]       24.00     28.00     32.00
#> mode [%]          21.18     25.32     29.47
#> CI lower [%]      10.17     13.20     16.37
#> CI upper [%]      38.13     42.46     46.67
#> prob.go [%]       61.70     77.26     88.13
#> prob.nogo [%]      0.59      0.17      0.04