# we have the times 4,7,9,15,21,67
time<-c(4,7,9,15,21,67)
# and its survival (note: in this example there may be more
# than one event in some times)
surv<-c(0.8,0.7,0.65,0.55,0.43,0.22)
# We want to calculated the survival at times 1, 10, 32,64
surv.search(c(1,10,32,74),time,surv)
Run the code above in your browser using DataLab