# 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 DataLab