install.packages("devtools")
Error in install.packages : Updating loaded packages
library(devtools)
install_github("ToshihiroIguchi/qatsp")
Downloading GitHub repo ToshihiroIguchi/qatsp@master
from URL https://api.github.com/repos/ToshihiroIguchi/qatsp/zipball/master
library(qatsp)
set.seed(123)
result <- qatsp(x = Akita[,1], y= Akita[,2])
summary(result)
Quantum annealing for traveling salesman problem.

This is the shortest path obtained by this quantum annealing.
1 8 12 24 6 25 3 10 23 13 7 14 4 11 15 16 18 2 17 22 5 20 19 21 9

The length of this route is 4.739703
(The annealing step where the optimum result was obtained is 345)

Inverse Temperature : 50
Trotter Dimension : 10
Initial annealing parameter : 1
Annealing step : 500
Monte Carlo step : 5000
An attenuation factor of the annealing parameter : 0.99

Calculation time : 213.877 sec.
plot(result)

route(result)

LS0tCnRpdGxlOiAiUXVhbnR1bSBUcmF2ZWxsaW5nIFNhbGVzbWFuIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCmBgYHtyfQppbnN0YWxsLnBhY2thZ2VzKCJkZXZ0b29scyIpCmBgYAoKYGBge3J9CmxpYnJhcnkoZGV2dG9vbHMpCmluc3RhbGxfZ2l0aHViKCJUb3NoaWhpcm9JZ3VjaGkvcWF0c3AiKQpgYGAKCmBgYHtyfQpsaWJyYXJ5KHFhdHNwKQpgYGAKCmBgYHtyfQpzZXQuc2VlZCgxMjMpCnJlc3VsdCA8LSBxYXRzcCh4ID0gQWtpdGFbLDFdLCB5PSBBa2l0YVssMl0pCmBgYAoKYGBge3J9CnN1bW1hcnkocmVzdWx0KQpgYGAKCmBgYHtyfQpwbG90KHJlc3VsdCkKYGBgCgpgYGB7cn0Kcm91dGUocmVzdWx0KQpgYGAK