data(actcal)
# labels for plot color legends
actcal.lab <- c("> 37 hours", "19-36 hours", "1-18 hours", "no work")
# state sequence object of the first six sequences
actcal.seq <- seqdef(actcal[1:6 ,13:24], labels=actcal.lab)
print(actcal.seq)
Run the code above in your browser using DataLab