## loading data
data(actcal.tse)
## creating sequences
actcal.seqe <- seqecreate(actcal.tse$id,
actcal.tse$time,
actcal.tse$event)
## Looking for frequent subsequences
fsubseq <- seqefsub(actcal.seqe,pMinSupport=0.01)
## Frequence of first ten subsequences
seqefplot(fsubseq$subseq[1:10],actcal.seqe)
## Retrieve sex information
data(actcal)
## Plotting on 2 line 3 column
seqefplot(fsubseq$subseq[1:6],actcal.seqe,
group=actcal$sex, mfrow=c(2,3))Run the code above in your browser using DataLab