design2 <- NumEventsSub.TwoArm(N.0=100,N.1=100,l=6,gamma.c=1
,alpha0.t = 1,nu0.t=5,alpha1.t=2,nu1.t=4,s=5,m=4)
SimData.TwoArm(design2=design2,seed=1234,nsim=100)
Run the code above in your browser using DataLab