data(mvad)
mvad.seq <- seqdef(mvad[1:100, 17:86])
## COmpute distance using Hamming distance
diss <- seqdist(mvad.seq, method="HAM")
pclust <- seqpropclust(mvad.seq , diss=diss, maxcluster=5, properties=c("state", "duration"))
## Run it to visualize the results
##seqtreedisplay(pclust, type="d", border=NA, showdepth=TRUE)
pclustqual <- as.clustrange(pclust, diss=diss, ncluster=5)
Run the code above in your browser using DataLab