powered by
Surv
tneSurv(s, onlyEvents = TRUE)
TRUE
df0 <- data.frame(t=c(1,1,2,3,5,8,13,21), e=rep(c(0,1),4)) s1 <- Surv(df0$t,df0$e,type="right") tneSurv(s1)
Run the code above in your browser using DataLab