shiny/shinyapps/Akita_tspdata.R

In ToshihiroIguchi/qatsp: Quantum annealing for traveling salesman problem

#Latitude and longitude of municipalities in Akita prefecture
#http://www.gsi.go.jp/KOKUJYOHO/CENTER/kendata/akita_heso.htm
Akita <- data.frame(
  latitude = c(140.1036, 140.0272, 140.5667, 140.5647, 139.8478, 140.4958, 140.7883,
               140.0489, 140.0131, 140.4756, 140.3708, 139.9078, 140.7306, 140.7361,
               140.2958, 140.2619, 140.0050, 140.0386, 140.1117, 140.0733, 140.0817,
               139.9600, 140.5825, 140.4131, 140.6489),
  longitude = c(39.71972, 40.21194, 39.31361, 40.27167, 39.88667, 39.16444, 40.21583,
                39.38583, 39.85750, 39.45306, 40.22611, 39.20306, 39.70000, 40.33306,
                40.06333, 40.27833, 40.10167, 40.31889, 39.94417, 39.94944, 39.91417,
                40.01778, 39.46167, 39.19944, 39.17889)
)