data(mvad)
mvad.seq <- seqdef(mvad[1:100, 17:86])
## COmpute distance using Hamming distance
diss <- seqdist(mvad.seq, method="HAM")
library(cluster)
fclust <- fanny(diss, k=2, diss=TRUE)
fuzzyseqplot(mvad.seq, group=fclust, type="d")
fuzzyseqplot(mvad.seq, group=fclust, type="I", sortv="membership")
fuzzyseqplot(mvad.seq, group=fclust, type="f")
Run the code above in your browser using DataLab