register_DendSer()
list_seriation_methods("dist")
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", cost = "AR"))
pimage(d, o)Run the code above in your browser using DataLab