data(actcal.tse)
actcal.seqe <- seqecreate(actcal.tse$id,actcal.tse$time,actcal.tse$event)
#Searching for frequent subsequences, that is, appearing at least 20 times
fsubseq <- seqefsub(actcal.seqe,minSupport=20)
##looking for subsequence with FullTime
seqecontain(fsubseq$subseq,c("FullTime"))Run the code above in your browser using DataLab