## Calculate the coverage probability for an exact, nonparametric confidence
## band for leukemia patient remission experience based on data from 20
## patients receiving Treatment B when the value of x is 0.3
time<-c(1,1,2,2,3,4,5,8,8,9,11,12,14,16,18,21,27,31,38,44)
status<-c(rep(1,16),0,1,0,1)
fit<-survfit(Surv(time,status)~1)
cover(0.3,fit)
Run the code above in your browser using DataLab