if (FALSE) {
register_DendSer()
get_seriation_method("dist", "DendSer")
d <- dist(random.robinson(20, pre=TRUE))
## use Banded AR form with default clustering (complete-link)
o <- seriate(d, "DendSer_BAR")
pimage(d, o)
## use different hclust method (Ward) and AR as the cost function for
## dendrogram reordering
o <- seriate(d, "DendSer", control = list(method = "ward.D2", criterion = "AR"))
pimage(d, o)
}
Run the code above in your browser using DataLab