## Not run: ------------------------------------
# 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", criterion = "AR"))
# pimage(d, o)
## ---------------------------------------------
Run the code above in your browser using DataLab