# NOT RUN {
data(actcal)
actcal <- actcal[1:100,]
actcal.seq <- seqdef(actcal[,13:24])
seqdplot(actcal.seq, group=group.p(actcal$sex))
levels(group.p(actcal$sex, weights=runif(length(actcal$sex))))
# }
Run the code above in your browser using DataLab