test.R

In jakobbossek/tspgen: Problem Generator for Traveling Salesperson Problems

library(ggplot2)
library(gridExtra)
devtools::load_all(".")

n = 1000L
pm = 0.1
x = generateRandomNetwork(n, lower = 0, upper = 1)
y = x

#y$coordinates = doRotationMutation(y$coordinates, pm = pm)
y$coordinates = replicate2(y$coordinates, doMutation, pm = pm, n = 50)

#grid.arrange(autoplot(x) + xlim(c(-1, 2)) + ylim(c(-1, 2)), autoplot(y) + xlim(c(-1, 2)) + ylim(c(-1, 2)), nrow = 1L)
grid.arrange(autoplot(x), autoplot(y), nrow = 1L)