## Not run: ------------------------------------
# register_GA()
# list_seriation_methods("dist")
#
# d <- dist(random.robinson(50, pre=TRUE, noise=.1))
#
# ## use default settings: Banded AR form
# o <- seriate(d, "GA")
# pimage(d, o)
#
# ## optimize for linear sertiation criterion (LS)
# o <- seriate(d, "GA", control = list(criterion = "LS"))
# pimage(d, o)
#
# ## no warm start
# o <- seriate(d, "GA", control = list(criterion = "LS", suggestions = NA))
# pimage(d, o)
## ---------------------------------------------
Run the code above in your browser using DataCamp Workspace