## Defining a state sequence object
data(mvad)
mvad.seq <- seqdef(mvad[, 17:86])
## Building dissimilarities
mvad.lcs <- seqdist(mvad.seq, method="LCS")
print(dissreg(mvad.lcs ~ male + Grammar + funemp +
gcse5eq + fmpr + livboth, data=mvad, R=10))
Run the code above in your browser using DataLab