data(actcal)
transition <- seqetm(actcal[,13:24], method="transition")
transition[1,1:4] <- c("FullTime" , "Decrease,PartTime",
"Decrease,LowPartTime", "Stop")
transition[2,1:4] <- c("Increase,FullTime", "PartTime" ,
"Decrease,LowPartTime", "Stop")
transition[3,1:4] <- c("Increase,FullTime", "Increase,PartTime",
"LowPartTime" , "Stop")
transition[4,1:4] <- c("Start,FullTime" , "Start,PartTime" ,
"Start,LowPartTime" , "NoActivity")
transition
actcal.tse <- seqformat(actcal,var=13:24,from='STS',to='TSE', tevent=transition)
actcal.seqe <- seqecreate(id=actcal.tse$id,
time=actcal.tse$time, event=actcal.tse$event)Run the code above in your browser using DataLab