OptimDes
with the targetted values.
SimDes(object,B.init,m.init,weib0,weib1,interimRule='e1', sim.n=1000,e1conv=1/365,CMadj=F,attainI=1,attainT=1,FixDes="F", Rseed)
OptimDes
.OptimDes
.B.init
. This vector
needs to be specified only if its values differ from the call to
OptimDes
.OptimDes
.OptimDes
.n1
patients are accrued regardless of the time required when
interimRule='n1'. The interim analysis is performed at the planned
time t1
regardless of the number of patients accrued when
interimRule='t1'. The interim analysis is performed when the
truncated (by x) total exposure matches the total expected exposure
when interimRule='e1'. The default is 'e1'.interimRule='e1'
. The default is 1/365, which
is appropriate provided B.init
is specified in yearsn
, n1
, and t1
are adjusted by
the ratio of the exact binomial to asymptotic normal sample size for
the single stage design, as in Case and Morgan (2003). Proportional
adjustment of times and sample sizes are made even if the accrual rates
are not constant. The adjustment to the mda
is made through the
adjustment to n
rather than by multiplication to ensure consistency
with accrual boundaries. The truncated exposure time is matched to the
adjusted time of the interim analysis. Default is false.
attainI
permits simulations with a
different interim time or sample size (depending on
interimRule
) by a specified fraction.set.seed
. If unspecified, the random seed status at the time of the function call is used.NA
if the design allows interim stopping for superiority.NA
if the design allows interim stopping for superiority.num.stage=3
.sim.n
(default is 1000
) simulation experiments are
conducted to assess how close the empirical type I and II error rates come
to the target values. Simulation studies can also be used to assess the performance of the
optimal design under mis-specification of the design parameters. For
example, if the Weibull
shape and scale parameters of the time to event distributions are
changed, or if the accrual rates are changed. (see Case and Morgan,
2003, for discussion of this topic).
The function weibPmatch
can be used to select
Weibull parameters that yield a target event-free rate at a
specified time.
Huang B., Talukder E. and Thomas N. Optimal two-stage Phase II designs with long-term endpoints. Statistics in Biopharmaceutical Research, 2(1), 51--61. Case M. D. and Morgan T. M. (2003) Design of Phase II cancer trials evaluating survival probabilities. BMC Medical Research Methodology, 3, 7.
Lin D. Y., Shen L., Ying Z. and Breslow N. E. (1996) Group seqential designs for monitoring survival probabilities. Biometrics, 52, 1033--1042.
Simon R. (1989) Optimal two-stage designs for phase II clinical trials. Controlled Clinical Trials, 10, 1--10.
OptimDes
, TestStage
,
weibPmatch
## Not run:
# B.init <- c(1, 2, 3, 4, 5)
# m.init <- c(15, 20, 25, 20, 15)
# alpha <- 0.05
# beta <- 0.1
# param <- c(1, 1.09, 2, 1.40)
# x <- 1
#
# # H0: S0=0.40 H1: S1=0.60
#
# object1 <- OptimDes(B.init,m.init,alpha,beta,param,x,target="EDA",sf="futility",num.arm=1)
#
# SimDes(object1,sim.n=100)
#
# ### Stopping based on pre=planned time of analysis
# SimDes(object1,interimRule='t1',sim.n=100)
#
# ### accrual rates differ from planned
# SimDes(object1,m.init=c(5,5,25,25,25),sim.n=100)
# ## End(Not run)
Run the code above in your browser using DataLab