coordinates <- matrix(c(1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5,
0, 4, 11, 0, 10, 11, 0, 1, 5, 11, 0, 4, 11, 0, 4,
11), ncol = 2, byrow = FALSE,
dimnames = list(NULL, c("x", "y")))
semi_optimal_heuristic(coordinates)
Run the code above in your browser using DataLab