#Interim look for the trial when the number of events is 13(first look).
gg<-EffIM(c(13),dmax=57,alpha=0.05,beta=0.1,etam=3.0726,d1=65,opt="OBF",last.look=FALSE)
#Interim look for the trial when the number of events is 35(second look).
gg<-EffIM(c(13,35),dmax=57,alpha=0.05,beta=0.1,etam=3.0726,d1=65,opt="OBF",last.look=FALSE)
Run the code above in your browser using DataLab