powered by
Event(time, time2 = TRUE, cause = NULL, cens.code = 0, ...)
t1 <- 1:10 t2 <- t1+runif(10) ca <- rbinom(10,2,0.4) (x <- Event(t1,t2,ca))
Run the code above in your browser using DataLab