if (require(TraMineR)) {
data(mvad)
mvad.seq <- seqdef(mvad[,17:86])
mvad.lcs <- seqdist(mvad.seq, method = "LCS")
mvad.hc <- hclust(as.dist(mvad.lcs), method = "ward.D2")
seq_heatmap(mvad.seq, mvad.hc)
}
Run the code above in your browser using DataLab