# NOT RUN {
GSD=plan.GST(K=4,SF=1,phi=0,alpha=0.025,delta=6,pow=0.8,compute.alab=TRUE,compute.als=TRUE)
GST<-as.GST(GSD=GSD,GSDo=list(T=2, z=3.1))
GST
plot(GST)
GST<-summary(GST)
plot(GST)
##The repeated confidence interval, p-value and maximum likelihood estimate
##at the earlier stage T=1 where the trial stopping rule is not met.
summary(as.GST(GSD,GSDo=list(T=1,z=0.7)),ctype="r",ptype="r",etype="ml")
# }
# NOT RUN {
##If e.g. the stage-wise adjusted confidence interval is calculated at this stage,
##the function returns an error message
summary(as.GST(GSD,GSDo=list(T=1,z=0.7)),ctype="so",etype="mu")
# }
Run the code above in your browser using DataLab