search for: startextra

...nd( (0.5*(n.0+n.a)/t.A)*(new.tA - t.A) ) nextra.a <- round( (0.5*(n.0+n.a)/t.A)*(new.tA - t.A) ) # final sample size = original sample plus the extra sample final.size[i] <- nextra.0 + nextra.a + n.0 + n.a #generate start times for additional patients startextra.0<-runif(nextra.0,t.A,new.tA) startextra.a<-runif(nextra.a,t.A,new.tA) #generate additional sample yextra.0<- startextra.0 + rexp(nextra.0,(log(2)/med.0)) yextra.a<- startextra.a + rexp(nextra.a,(log(2)/med.a)) # Determine when k is reached (its t...