# 1. An example when q_value=0.1, i.e, more importance is given to ES.
# phase2.TTE(shape=0.5, S0=0.6, x0=3, hr=0.5, tf=1, rate=5,
# alpha=0.05, beta=0.15, q_value=0.1, prStop=0, restricted=0)
# $param
# shape S0 hr alpha beta rate x0 tf q_value prStop restricted
# 1 0.5 0.6 0.5 0.05 0.15 5 3 1 0.1 0 0
#
# $Single_stage
# nsingle tasingle csingle
# 1 45 9 1.644854
#
# $Two_stage_Optimal
# n1 c1 n c t1 MTSL ES PS
# 1 29 0.1389 48 1.6159 5.7421 10.6 37.29 0.5552
#
# $Two_stage_minmax
# n1 c1 n c t1 MTSL ES PS
# 1 34 0.1151 45 1.6391 6.7952 10 38.9831 0.5458
#
# $Two_stage_Admissible
# n1 c1 n c t1 MTSL ES PS Rho
# 123 29 0.0705 47 1.6232 5.7261 10.4 37.2993 0.5281 38.26937
# 285 28 0.0792 48 1.6171 5.5663 10.6 37.2790 0.5316 38.35110
# 1701 31 0.0733 46 1.6293 6.0191 10.2 37.5828 0.5292 38.42452
# 170 33 -0.0405 45 1.6391 6.4245 10.0 38.7692 0.4839 39.39228
#
# $difn_opSg
# [1] 3
#
# $difn_opminmax
# [1] 3
#
# $minmax.err
# [1] 0
#
# $optimal.err
# [1] 0
#
# $admiss.err
# [1] 0
#
# $admiss.null1
# [1] 0
#
# $admiss.null2
# [1] 0
#
# $admiss.null3
# [1] 0
# 2. An example when q_value=0.75, i.e., more importance is given to n.
# phase2.TTE(shape=0.5, S0=0.6, x0=3, hr=0.5, tf=1, rate=5,
# alpha=0.05, beta=0.15, q_value=0.75, prStop=0, restricted=0)
# $param
# shape S0 hr alpha beta rate x0 tf q_value prStop restricted
# 1 0.5 0.6 0.5 0.05 0.15 5 3 1 0.75 0 0
#
# $Single_stage
# nsingle tasingle csingle
# 1 45 9 1.644854
#
# $Two_stage_Optimal
# n1 c1 n c t1 MTSL ES PS
# 1 29 0.1389 48 1.6159 5.7421 10.6 37.29 0.5552
#
# $Two_stage_minmax
# n1 c1 n c t1 MTSL ES PS
# 1 34 0.1151 45 1.6391 6.7952 10 38.9831 0.5458
#
# $Two_stage_Admissible
# n1 c1 n c t1 MTSL ES PS Rho
# 170 33 -0.0405 45 1.6391 6.4245 10.0 38.7692 0.4839 43.44230
# 1701 31 0.0733 46 1.6293 6.0191 10.2 37.5828 0.5292 43.89570
# 123 29 0.0705 47 1.6232 5.7261 10.4 37.2993 0.5281 44.57483
# 285 28 0.0792 48 1.6171 5.5663 10.6 37.2790 0.5316 45.31975
#
# $difn_opSg
# [1] 3
#
# $difn_opminmax
# [1] 3
#
# $minmax.err
# [1] 0
#
# $optimal.err
# [1] 0
#
# $admiss.err
# [1] 0
#
# $admiss.null1
# [1] 0
#
# $admiss.null2
# [1] 0
#
# $admiss.null3
# [1] 0
Run the code above in your browser using DataLab