data(mvad)
mvad.alph <- c("employment", "FE", "HE", "joblessness",
"school", "training")
mvad.labels <- c("employment", "further education",
"higher education", "joblessness", "school", "training")
mvad.shortlab <- c("EM", "FE", "HE", "JL", "SC", "TR")
mvad.seq <- seqdef(mvad[1:6,17:86], alphabet = mvad.alph,
states = mvad.shortlab, labels = mvad.labels,
weights=mvad[1:6,]$weights, xtstep = 6)
print(mvad.seq, format="SPS")
Run the code above in your browser using DataLab