if (FALSE) {
register_GA()
get_seriation_method("dist", "GA")
data(SupremeCourt)
d <- as.dist(SupremeCourt)
## optimize for linear seriation criterion (LS)
o <- seriate(d, "GA", criterion = "LS", verbose = TRUE)
pimage(d, o)
## Note that by default the algorithm is already seeded with a LS heuristic.
## This run is no warm start (no suggestions) and increase run to 100
o <- seriate(d, "GA", criterion = "LS", suggestions = NA, run = 100,
verbose = TRUE)
pimage(d, o)
o <- seriate(d, "GA", criterion = "LS", suggestions = NA, run = 100,
verbose = TRUE, )
pimage(d, o)
}
Run the code above in your browser using DataLab