succ_ia_betabinom_two: Determines predictive power of success based on interim...

In LongCART: Recursive Partitioning for Longitudinal Data and Right Censored Data Using Baseline Covariates

Determines predictive power of success based on interim results and beta priors for two-sample binary data

Description

This function can be used to determine predictive power for trial success and clinical success based on the interim results and beta prior distribution for test of difference of two proportions.

Usage

succ_ia_betabinom_two(N.trt, N.con, 
                      n.trt, x.trt, n.con, x.con, 
                      alternative = "greater", test = "z", 
                      succ.crit = "trial", Z.crit.final = 1.96, 
                      alpha.final = 0.025, clin.succ.threshold = NULL, 
                      a.trt = 1, b.trt = 1, a.con = 1, b.con = 1)

Arguments

N.trt	Sample size in treatment arm at final analysis. Cannot be missing.
N.con	Sample size in control arm at final analysis. Cannot be missing.
n.trt	Sample size in treatment arm at interim analysis. Cannot be missing.
x.trt	Number of observed response in treatment arm at interim analysis. Cannot be missing.
n.con	Sample size in control arm at interim analysis. Cannot be missing.
x.con	Number of observed response in control arm at interim analysis. Cannot be missing.
alternative	Direction of alternate hypothesis. Can be "greater" or "less".
test	Statistical test. Default is "z" for Z test. For Fisher's exact test, specify "fisher".
succ.crit	Specify "trial" for trial success (i.e., null hypothesis is rejected at final analysis) or "clinical" for clinical success (i.e., estimated value at the final analysis is greater than clinically meaningful value as specified under clin.succ.threshold.)
Z.crit.final	The rejection boundary at final analysis in Z-value scale. Either alpha.final or Z.crit.final must be specified when determining trial success.
alpha.final	The rejection boundary at final analysis in alpha (1-sided) scale (e.g., 0.025). Either alpha.final or Z.crit.final must be specified when determining trial success.
clin.succ.threshold	Clinically meaningful value. Required when succ.crit="clinical".
a.trt	Value of a corresponding to Beta(a, b) prior in treatment arm.
b.trt	Value of b corresponding to Beta(a, b) prior in treatment arm.
a.con	Value of a corresponding to Beta(a, b) prior for proportion in control arm.
b.con	Value of b corresponding to Beta(a, b) prior for proportion in control arm.

Details

This function can be used to determine Predictive power or predictive probability of success (PPoS) based on the interim results for comparison of two proportions. The calculation of PoS is carried out assuming beta prior distributions for proportions in both treatment and control arms. This function can be used to determine clinical success (succ.crit="clinical") and trial success (succ.crit="trial"). For clinical success, clin.succ.threshold must be specified. For trial success, Z.crit.final or alpha.final must be specified.

Author(s)

Madan Gopal Kundu <[e-mail]>

References

Kundu, M. G., Samanta, S., and Mondal, S. (2021). An introduction to the determination of the probability of a successful trial: Frequentist and Bayesian approaches. arXiv preprint arXiv:2102.13550.

See Also

succ_ia_betabinom_one, succ_ia, PoS

Examples

succ_ia_betabinom_two( N.con=40, N.trt=40, 
        n.trt=30, x.trt=20, n.con=30, x.con=15, 
        alternative="greater", test="fisher",
        succ.crit = "trial", Z.crit.final = 1.96,  
        a.trt = 1, b.trt=1, a.con=1, b.con=1) 

succ_ia_betabinom_two( N.con=40, N.trt=40, 
        n.trt=30, x.trt=20, n.con=30, x.con=15, 
        alternative="greater", test="z",
        succ.crit = "trial", Z.crit.final = 1.96,  
        a.trt = 1, b.trt=1, a.con=1, b.con=1) 

succ_ia_betabinom_two( N.con=40, N.trt=40, 
        n.trt=30, x.trt=20, n.con=30, x.con=15, 
        alternative="greater", test="fisher",
        succ.crit = "clinical", clin.succ.threshold = 0.5, 
        a.trt = 1, b.trt=1, a.con=1, b.con=1) 

#--- Johns & Andersen, 1999, Example 1a (results matching)
succ_ia_betabinom_two( N.trt=32, N.con=32,  
        n.trt=12, x.trt=8, n.con=12, x.con=8, 
        alternative="greater", test="fisher",
        succ.crit = "clinical", clin.succ.threshold = 0,  
        a.trt = 1, b.trt=1, a.con=1, b.con=1) 

#--- Johns & Andersen, 1999, Example 1b (results matching)
succ_ia_betabinom_two( N.trt=32, N.con=32,  
        n.trt=12, x.trt=8, n.con=12, x.con=11, 
        alternative="greater", test="fisher",
        succ.crit = "clinical", clin.succ.threshold = 0,  
        a.trt = 1, b.trt=1, a.con=1, b.con=1) 

#--- Johns & Andersen, 1999, Example 2 (not matching, reported 0.586, got 0.536)
succ_ia_betabinom_two( N.trt=155+170, N.con=152+171,  
        n.trt=155, x.trt=13, n.con=152, x.con=21, 
        alternative="less", test="z",
        succ.crit = "trial", Z.crit.final = 1.96,  
        a.trt = 1, b.trt=1, a.con=1, b.con=1) 

succ_ia_betabinom_two( N.trt=155+170, N.con=152+171,  
        n.trt=155, x.trt=13, n.con=152, x.con=21, 
        alternative="less", test="fisher",
        succ.crit = "trial", Z.crit.final = 1.96,  
        a.trt = 1, b.trt=1, a.con=1, b.con=1) 

LongCART documentation built on May 18, 2022, 1:06 a.m.