The R code CR.R contains the following functions:

get_parameter() generates the parameters settings for the competing risk models based on the Weibull distribution

DA_method_OC() reports the OC of the proposed DA design
ODO_method_OC() reports the OC of the ODO design
OLD_method_OC() reports the OC of the OLD design

Examples:

tox<-c(0.1,0.22,0.35,0.5,0.6)

noeff<-c(0.4,0.38,0.3,0.25,0.2)

scenario_3<-get_parameter(follow=2,assessment=3,prob.cut=0.7,t_tox=tox,t_noeff=noeff,xstart=c(3,3,3,3))



try_DA<-DA_method_OC(initial_parameters=scenario_3,observe_time=2,assessment=3,cohort_size=3,no_cohort=20,no_eff_cut=0.6,tox_cut=0.25,
                  G=5000)
try_ODO<-ODO_method_OC(initial_parameters=scenario_3,observe_time=2,assessment=3,cohort_size=3,
                     no_cohort=20,no_eff_cut=0.6,tox_cut=0.25,G=5000)

try_OLD<-OLD_method_OC(initial_parameters=scenario_3,observe_time=2,assessment=3,cohort_size=3,
                         no_cohort=20,no_eff_cut=0.6,tox_cut=0.25,G=5000)