-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
14 lines (14 loc) · 1.36 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
source("tsp.R")
data48 <- read.table(file="att48data.tsp", header=FALSE)
colnames(data48) <- c("node", "xcoord", "ycoord")
data48 <-
matrix(c(1,6734,1453,2,2233,10,3,5530,1424,4,401,841,5,3082,1644,6,7608,4458,7,75
73,3716,8,7265,1268,9,6898,1885,10,1112,2049,11,5468,2606,12,5989,2873,13,4706,
2674,14,4612,2035,15,6347,2683,16,6107,669,17,7611,5184,18,7462,3590,19,7732,4
723,20,5900,3561,21,4483,3369,22,6101,1110,23,5199,2182,24,1633,2809,25,4307,2
322,26,675,1006,27,7555,4819,28,7541,3981,29,3177,756,30,7352,4506,31,7545,280
1,32,3245,3305,33,6426,3173,34,4608,1198,35,23,2216,36,7248,3779,37,7762,4595,3
8,7392,2244,39,3484,2829,40,6271,2135,41,4985,140,42,1916,1569,43,7280,4899,44,
7509,3239,45,10,2676,46,6807,2993,47,5185,3258,48,3023,1942),48,3)
data48 <-matrix(c(1,6734,1453,2,2233,10,3,5530,1424,4,401,841,5,3082,1644,6,7608,4458,7,7573,3716,8,7265,1268,9,6898,1885,10,1112,2049,11,5468,2606,12,5989,2873,13,4706,2674,14,4612,2035,15,6347,2683,16,6107,669,17,7611,5184,18,7462,3590,19,7732,4723,205900,3561,21,4483,3369,22,6101,1110,23,5199,2182,24,1633,2809,25,4307,2322,26,675,1006,27,75554819,28,7541,3981,29,3177,756,30,7352,4506,31,7545,2801,32,3245,3305,33,6426,3173,344608,1198,35,23,2216,36,7248,3779,37,7762,4595,38,7392,2244,39,3484,282940,6271,2135,41,4985,140,42,1916,1569,43,7280,4899,44,7509,3239,45,10,2676,46,6807,2993,47,5185,3258,48,3023,1942),48,3)
as.data.frame