data(actcal.tse)
actcal.seqe<-seqecreate(actcal.tse$id,actcal.tse$time,actcal.tse$event)
##time to end is added
sl<-numeric()
sl[1:2000]<-12
#All sequences with same length
seqesetlength(actcal.seqe,sl)
actcal.seqe[1:10]
#Retrieve length
seqelength(actcal.seqe)Run the code above in your browser using DataLab