Experiments to measure the relative speed of CRAN mirrors

cranometer.r

# Modified from Barry Rowlingson's cranometer, posted to R-help 7/30/09

cranometer <- function(mirrors, url = "/src/base/COPYING", cacheOK = FALSE) {
  old <- options(timeout = 10)
  on.exit(options(old))

  urls <- paste0(mirrors$URL, url)
  times <- vapply(urls, time_download, cacheOK = cacheOK,
    FUN.VALUE = numeric(1), USE.NAMES = FALSE)
  names(times) <- mirrors$Name

  times
}

#' Returns time in kilobytes / s
time_download <- function(url, cacheOK = FALSE) {
  cat(".")
  dest <- tempfile()
  on.exit(file.remove(dest))

  down <- function(src) {
    download.file(src, dest, cacheOK = cacheOK, method = "internal", quiet = TRUE)
  }

  time <- tryCatch(system.time(down(url))[["elapsed"]],
    error = function(e) NA)

  file.info(dest)$size / time / 1024
}

rowMax <- function(x) apply(x, 1, max, na.rm = TRUE)

# # Eliminate the slowest mirrors (<20 kbs from best of three)
#
# mirrors <- getCRANmirrors(all = FALSE, local.only = FALSE)
# # About 20k
# three <- replicate(3, cranometer(mirrors, url = "/src/base/COPYING"))
# best <- rowMax(three)
# # Check these look reasonable
# names(best)[best <= 20]
# dput(names(best)[best > 20])

reasonable <- c("0-Cloud", "Argentina (La Plata)", "Argentina (Mendoza)", "Austria",
"Belgium", "Brazil (PR)", "Brazil (RJ)", "Brazil (SP 1)", "Brazil (SP 2)",
"Canada (BC)", "Canada (NS)", "Canada (ON)", "Canada (QC 1)",
"Canada (QC 2)", "Chile", "Colombia (Bogota)", "Colombia (Cali)",
"Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)", "France (Montpellier)",
"France (Paris 1)", "France (Paris 2)", "Germany (Berlin)", "Germany (Bonn)",
"Germany (Goettingen)", "Greece", "Hungary", "Indonesia", "Ireland",
"Italy (Milano)", "Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)",
"Latvia", "Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela")

all <- getCRANmirrors(all = FALSE, local.only = FALSE)
mirrors <- subset(all, Name %in% reasonable)

# About 100k
bigger <- replicate(3, cranometer(mirrors, url = "/src/base/FAQ"))
cat("\n")
dput(bigger)

speeds.r

speeds <- list(
  "US (TX)" = structure(c(262.840221774111, 77.0136755671303, 18.3376898912204,
71.7678820463323, 84.1740379648102, 79.209788156113, 65.4987690915765,
62.8061167137747, 84.5233078319553, 114.011849930025, 152.775878906389,
175.604458512953, 163.396661931907, 163.615399096519, 77.7980287237472,
95.1513520703391, 108.931107954605, 95.7842500978379, 47.986141784409,
89.934292218518, 72.7937481387693, 68.9344067258476, 86.2531426428296,
69.8005157766909, 69.2861128826839, 86.2531426428296, 74.524818978685,
70.4442092940722, 49.9267578124935, 27.8470501537986, 87.1138297397149,
80.6737314356746, 64.7355419093372, 40.3768427899147, 56.7149434455063,
109.713378029485, 251.482928240334, 123.553313441886, 79.3640929382667,
85.2900928994578, 63.8228214751667, 80.8872952513691, 60.2963508263972,
63.228506531388, 74.2531610724317, 85.6487057638594, 50.9040829341589,
37.8978924418776, 92.6616399734995, 74.118073453552, 156.89435574482,
129.608380832546, 376.063701922235, 217.088282636915, 481.183870569322,
203.701171874259, 200.690809728939, 243.953499251398, 189.196134868234,
325.921875, 33.3298890441992, 236.403681092923, 168.580280172752,
175.352515243873, 88.6980857684877, 182.418959888535, 378.392269740729,
104.730679627461, 67.0069644325465, 121.250697544884, 97.0005580358375,
121.371105387117, 90.4668416911799, 102.276739016761, 102.966051495218,
161.241033146091, 185.46388941588, 232.801339285069, 284.234193313761,
260.598514127287, 108.834107858454, 125.958552126186, 93.1560237234596,
88.7586805557638, 46.8278556034378, 126.916617990689, 95.4103849532331,
94.8918502522949, 96.1610567466077, 108.351687167494, 95.8593749998906,
102.534146917024, 107.968819014882, 106.278872282474, 66.5327725231524,
63.0979365643372, 111.312115778509, 88.0552616174979, 76.3402268112541,
64.872984673629, 106.836278955398, 114.977143108917, 252.522113894431,
130.504826831335, 108.931107954605, 109.028281110695, 112.645809331888,
82.0824063968337, 90.6681773923138, 92.9435004753777, 82.1375693045704,
105.727251838323, 87.7391982232573, 103.929169324026, 118.316266335978,
109.811952493503, 279.042701199724, 143.620097678798, 433.406748671376,
283.574717227053, 623.575015944155, 248.416063261181, 228.44991238324,
313.386418269698, 288.937832447584, 345.256223517574, 85.5887276785784,
286.903058979226, 155.695163216589, 113.482547005451, 207.311208895182,
235.947303330103, 492.825415827423, 105.271923449607, 67.6748079318752,
102.362397927178, 94.8918502522949, 106.186536164052, 85.5887276785784,
102.620237720498, 99.6906224511621, 130.577674278635, 200.033884001379,
243.953499251398, 278.407068622828, 265.697180707026, 109.223148458209,
127.394349093245, 126.391626809649, 88.5015953112902, 46.4364373575618,
112.958135975201, 95.4103849532331, 94.6713424670008, 94.1607882317137,
106.929749015745, 106.094360351391, 104.106220719844, 108.159914269814,
103.052869414181, 61.0798116566654, 45.418321488313, 109.320843582429,
98.6446352904457, 97.3094770105375, 65.1496285314428, 81.3719727862629,
121.371105387117, 288.937832445099, 147.052089562875, 112.232050619466,
124.842393385726, 114.546113518919, 105.362675107772, 87.9285633993174,
39.9283577670973, 74.6613947005605, 107.21114309216, 70.0806783974115,
113.16731770815, 132.848590352988, 98.9641320852651, 274.653265449618,
132.993148123242, 502.965856484433, 262.840221774111, 611.103515633893,
246.910511364144, 242.021194306443, 333.936347334419, 304.031599812024,
368.134647968513, 20.1750913048952, 138.25871394259, 132.560415536546,
184.344951922947, 201.203841039021, 218.641687164147), .Dim = c(66L,
3L), .Dimnames = list(c("0-Cloud", "Argentina (La Plata)", "Argentina (Mendoza)",
"Austria", "Belgium", "Brazil (PR)", "Brazil (RJ)", "Brazil (SP 1)",
"Brazil (SP 2)", "Canada (BC)", "Canada (NS)", "Canada (ON)",
"Canada (QC 1)", "Canada (QC 2)", "Chile", "Colombia (Bogota)",
"Colombia (Cali)", "Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)",
"France (Montpellier)", "France (Paris 1)", "France (Paris 2)",
"Germany (Berlin)", "Germany (Bonn)", "Germany (Goettingen)",
"Greece", "Hungary", "Indonesia", "Ireland", "Italy (Milano)",
"Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)", "Latvia",
"Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela"), NULL)),

"US (WA)" = structure(c(163.61539909642, 65.6394753625106, 50.0494279791153,
96.540839751179, 68.4326445268735, 80.940862996677, 67.5252503453059,
63.2612335015448, 85.0526813674382, 468.278556034542, 141.787358613676,
154.124468001238, 144.468916223404, 166.286670918339, 61.8525825531341,
87.3121781782731, 74.8901367187472, 85.8291454529508, 52.298118581515,
110.707158627736, 55.9618604052264, 84.3483113353997, 81.6983309659039,
66.0295532820057, 70.3226139959793, 78.9029716752755, 101.259903169024,
81.7529786789357, 83.0868138171567, 55.6560578893465, 94.3060980902907,
68.1274822324292, 73.317758323319, 63.0003624355652, 69.1684794142505,
96.0854584316087, 138.258713942305, 133.48050692185, 66.4965740614729,
69.5621531730198, 68.0516164393163, 61.1409220235041, 55.7321947674481,
21.9151341447024, 68.8179634712724, 98.1692394578399, 55.8085402397362,
65.0110123005281, 76.6754724749034, 60.0298148943991, 333.026439032939,
230.170815677988, 209.28202589887, 198.088659846114, 204.382446697339,
120.652224210276, 169.75097656244, 177.131453804334, 124.334387716153,
318.283081054675, 260.044049201987, 96.9236345162595, 115.958921370958,
457.75544241603, 258.811677631629, 82.5815561655395, 149.414062500045,
73.7602312160463, 24.3564573784375, 50.6719333022333, 69.9603337864974,
82.6373922413897, 85.1712216898987, 102.87937973484, 86.7428694996386,
347.21790660525, 163.178508845171, 155.893753986039, 151.450685408962,
111.210830868956, 69.404147146509, 86.3918108749259, 75.0280559392099,
78.9029716752755, 85.9498615506314, 57.2194303019672, 86.6813497340515,
83.9427906078221, 93.0142337328551, 90.5338541666423, 93.6557112069083,
93.3695211038821, 131.420110887056, 107.588647117081, 90.3999283469027,
67.2281095296952, 97.1547719594389, 88.6942693214703, 86.8044766512845,
80.4612923798669, 88.9524768013232, 102.706473214281, 186.596493320683,
143.281523164382, 94.5980674342167, 89.4079759509752, 125.741464120344,
88.8877840909091, 83.6555120636673, 44.557310654394, 77.5020311509307,
117.29434081095, 93.943661126029, 87.0517828525643, 98.5650831653038,
92.2420400943206, 543.20312500022, 296.65219205111, 275.27185388516,
226.334635416491, 253.04493400612, 139.680803571429, 215.177294234075,
244.44140625, 155.893753985948, 244.44140625, 324.192846485452,
127.048547946987, 133.428715201941, 275.893235045015, 435.941655585573,
42.7943638392892, 104.730679627257, 77.7980287237472, 32.4106876491631,
53.0471801757792, 74.0731534090868, 80.6205165732149, 82.1375693044449,
85.2306158472957, 96.1610567466766, 459.476327537462, 159.765624999932,
164.054635067038, 146.197013307454, 136.254964464893, 62.2939363532114,
86.0290740902677, 93.8715077765208, 68.6633163623694, 73.098506653707,
85.5887276785784, 62.1355887773228, 83.4271011092326, 89.2121920620213,
75.3518514950751, 71.8945312499885, 83.9427906078221, 127.579022051137,
103.226945206948, 62.9354804969102, 56.8997686801639, 96.6935942444874,
67.3763523291125, 85.5288335374335, 81.8624937207, 99.0443299230207,
95.6343529929733, 146.723533163251, 133.625594429337, 73.8047724184805,
69.4435813210321, 90.7354885857628, 75.6784539473787, 60.1479838213672,
39.6305781857998, 68.6633163623518, 92.7319447078759, 86.5585716182559,
87.3005022321655, 86.3140558792271, 76.6274000783577, 336.696151859663,
255.691847541806, 206.453890413817, 203.362234816934, 277.774325284056,
135.499670870282, 175.857126798635, 173.608953302625, 125.097956115678,
302.526492883666, 291.001674107092, 110.506964850837, 99.9351619991859,
548.074901905937, 463.907724056031, 87.6134072580657), .Dim = c(66L,
3L), .Dimnames = list(c("0-Cloud", "Argentina (La Plata)", "Argentina (Mendoza)",
"Austria", "Belgium", "Brazil (PR)", "Brazil (RJ)", "Brazil (SP 1)",
"Brazil (SP 2)", "Canada (BC)", "Canada (NS)", "Canada (ON)",
"Canada (QC 1)", "Canada (QC 2)", "Chile", "Colombia (Bogota)",
"Colombia (Cali)", "Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)",
"France (Montpellier)", "France (Paris 1)", "France (Paris 2)",
"Germany (Berlin)", "Germany (Bonn)", "Germany (Goettingen)",
"Greece", "Hungary", "Indonesia", "Ireland", "Italy (Milano)",
"Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)", "Latvia",
"Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela"), NULL)),

"Japan" = structure(c(84.4648950414649, 32.6531400280523, 31.8365988864288,
42.1887135398688, 33.4943006645656, 21.643474964583, 28.6835726648674,
23.4229020937141, 58.9015436746987, 94.0159254807694, 53.6526352611939,
72.2771751182737, 38.8372110343185, 48.2513632550335, 33.7067576185879,
38.5619657700753, 37.8158116104579, 40.4838367422989, 28.4763986777726,
60.7156995156481, 39.1733022836538, 35.6120929851398, 40.4168991815476,
24.7110196370805, 32.3506360839068, 17.7080126231527, 52.7951201403888,
46.9898897058824, 23.6495168585526, 98.4063632246362, 25.1224466855087,
35.2221046469741, 41.8707444758481, 404.704314983454, 151.826960403725,
41.8420757018146, 58.703507744957, 14.8688373095065, 45.2334208456699,
41.0964032027574, 66.6416047573608, 38.0631277250076, 33.7626251726519,
27.5644346244926, 36.192094499556, 50.3380161140857, 191.268705985921,
38.7264585313687, 45.0998904520294, 39.0356765011178, 115.849007701424,
72.1491753984657, 71.9792126766781, 62.6772836538456, 91.277597554145,
32.6008810682849, 67.2651090396255, 64.598680298625, 50.4418915084606,
111.719107061244, 106.836278955419, 55.7067926731999, 63.5573079173166,
54.8813215648854, 68.6790764664808, 17.3682965930084, 412.907780827674,
40.0723616803277, 6.74991457033193, 56.7149434454764, 36.5492533268541,
33.3389806669395, 23.8015001217138, 43.4176565275311, 8.5624704445145,
142.781195239487, 63.3924808739627, 77.2082774005068, 49.4220392741618,
48.8296856272476, 58.7882169913418, 50.4040782595322, 53.511691385727,
50.4835618029741, 36.6478869940026, 65.5338890750667, 51.0316088204585,
49.5824353448281, 49.5021073815311, 41.9138213734568, 42.5263406837157,
54.5384663654622, 48.9078443877558, 42.9900468255361, 37.3535156250001,
132.704346498372, 48.3467971222306, 49.3024215913667, 28.5695893232818,
434.949121441272, 291.696188842494, 13.6804010661518, 76.2925737359535,
19.6225932761373, 42.7345115821676, 49.4220392741607, 136.254964464884,
49.3223176452783, 48.5002790178564, 45.9303656989853, 46.7561985941081,
56.6623565716277, 260.598514125803, 58.1726335673489, 46.208205340265,
41.2907780827706, 165.386607746961, 87.4879764674308, 81.1558453685244,
26.7032342418615, 118.430913880809, 68.1274822324421, 92.7319447078879,
93.0142337328792, 71.1412707363229, 112.749726130073, 109.910704249098,
72.9675839552234, 61.4792269240443, 99.2051161728919, 88.1890580164989,
67.5625777363174, 424.377441406234, 33.1941073126017, 33.3298890441775,
56.7149434454749, 36.9246837235649, 34.7612921288394, 36.8245565305819,
19.171875, 40.3235576129989, 57.8970644836573, 45.0500195816436,
70.4036308323714, 39.1984294820391, 48.3085783102772, 39.9936855775526,
36.752031950673, 48.0805283733286, 41.5292909021409, 30.6701889899623,
57.2730567596075, 44.5898223732208, 44.4762384006543, 44.1548782966045,
36.8245565305813, 47.8921250489819, 45.8786423141894, 74.4794047074945,
37.1943710057821, 37.0365767045453, 108.159914269912, 43.0506175149692,
44.4600593397595, 25.0144705536228, 428.844572368469, 255.691847541806,
16.3026147959182, 77.5020311509196, 55.8544056678777, 52.0974864130434,
44.3632316243195, 135.650058962271, 49.6832126524406, 45.2836988236391,
39.9544632641375, 36.8801156080269, 69.7606752996594, 258.394721194527,
37.5948025607508, 18.1228800600536, 41.110226412715, 166.060737941578,
81.4261846269167, 80.8872952514847, 63.0979365642743, 127.44598866007,
61.6964680085817, 96.0099788884506, 87.6762576219509, 60.7156995156473,
110.707158627713, 78.6491011100342, 79.8828125000014, 44.4277365049077,
100.26308705907, 88.8262621929181, 53.8417194383264), .Dim = c(66L,
3L), .Dimnames = list(c("0-Cloud", "Argentina (La Plata)", "Argentina
(Mendoza)",
"Austria", "Belgium", "Brazil (PR)", "Brazil (RJ)", "Brazil (SP 1)",
"Brazil (SP 2)", "Canada (BC)", "Canada (NS)", "Canada (ON)",
"Canada (QC 1)", "Canada (QC 2)", "Chile", "Colombia (Bogota)",
"Colombia (Cali)", "Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)",
"France (Montpellier)", "France (Paris 1)", "France (Paris 2)",
"Germany (Berlin)", "Germany (Bonn)", "Germany (Goettingen)",
"Greece", "Hungary", "Indonesia", "Ireland", "Italy (Milano)",
"Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)", "Latvia",
"Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela"), NULL)),

"France" = structure(c(82.1928064055144, 55.3034855769231, 30.8248936002522,
240.119259577603, 124.334387716175, 54.9306530898876, 43.7910079272662,
57.8696511008522, 56.6098671259842, 56.7676280190431, 96.4646433504341,
78.7504530444588, 115.849007701422, 79.2611563715952, 64.8729846735669,
63.5325823643412, 55.2784726933515, 156.894355744545, 42.3935841571281,
452.669270833328, 273.424391778522, 269.208597191634, 319.949484620421,
298.099275914631, 252.522113894627, 79.6226078990226, 267.441363512035,
80.3554918639053, 132.416796451787, 29.4436769754276, 184.623418617823,
105.362675107758, 175.604458512932, 28.4102052824268, 30.8404499432248,
188.321576463792, 35.7579587843768, 16.3521610634477, 215.556795634918,
244.931268787571, 11.7328120500144, 146.022345430109, 185.745749430091,
183.514569256758, 164.496235699863, 246.910511363641, 29.658020656394,
209.282025898971, 204.041240609348, 167.425620719177, 98.0904519462283,
52.5906639952668, 75.6316232209159, 48.1942835666404, 70.120885327022,
88.6942693214804, 86.3750552120146, 85.0526813674323, 82.3035037878788,
126.391626809721, 52.3877853086156, 86.8661713752667, 64.1241884181535,
60.9579566708226, 48.3237212558963, 56.27104195442, 395.536256067964,
59.8827550832926, 40.3501826097721, 302.526492883666, 76.4357117729836,
69.1684794142616, 25.2887860800745, 74.3434933850363, 72.5776146823041,
86.6813497340428, 105.910487976601, 90.1997809040597, 118.660876820388,
107.494022097625, 70.6478052745669, 57.6620763954032, 22.4546579322065,
214.422286184202, 34.0827392986616, 439.642816996416, 318.283081054699,
291.001674107132, 358.418484237528, 379.567401009347, 126.522467003108,
87.238189239828, 275.271853885142, 170.699306040508, 118.660876820388,
26.1322863213597, 73.3617665816328, 231.478604403413, 219.821408498197,
26.7149077868853, 21.8056562221231, 209.641000214409, 49.0846197289155,
41.2397003941631, 322.482066292884, 286.903058978882, 48.6547385051752,
210.362655981071, 208.212441439517, 214.422286184213, 172.628111758468,
304.789783354107, 43.4485258176322, 210.001208118559, 252.522113894623,
213.29965641361, 101.176078745861, 51.9204346325401, 99.447276749391,
74.9360534181497, 99.2857052193343, 63.491274350649, 55.2784726933511,
112.335205078126, 113.482547005571, 131.703343884699, 62.6772836538465,
57.3536851830127, 71.4740953947365, 58.7035077449561, 26.3640460808492,
92.8023562072888, 614.174387562864, 61.6031769783272, 19.3479029800538,
309.41950158227, 93.7275330713189, 63.7562353286384, 16.0121450445435,
69.246857294617, 70.1611384184849, 74.1630480127416, 107.873524382168,
90.3999283468913, 107.873524382173, 60.6855526936459, 68.7792364237462,
66.5956375270855, 68.5477863853051, 214.422286184213, 33.1041991129468,
441.229975180526, 337.626251726551, 288.256375294826, 354.262907608726,
370.365767045472, 175.857126798549, 118.660876820385, 274.037450952899,
168.580280172422, 107.588647117081, 39.1231444062104, 118.087635869569,
86.3750552120129, 136.103232878615, 23.3736284423409, 29.3447066326529,
208.212441439527, 46.173291698149, 44.75265630688, 313.386418269242,
317.456371753254, 44.6713096217107, 188.903714258117, 205.758759469699,
202.687733208952, 194.618954020705, 130.997538183281, 42.8093531085812,
225.499452260135, 301.779513888867, 218.251255580356, 85.4690231643353,
57.1124780957948, 98.8840640169911, 75.3518514950698, 98.169239457831,
42.5856108449477, 84.8754882812501, 86.6199171686746, 96.6171566205544,
155.893753985971, 38.1462868679774, 108.447828859809, 76.6274000783713,
24.5916907696176, 27.4777708705853, 74.9820264570554), .Dim = c(66L,
3L), .Dimnames = list(c("0-Cloud", "Argentina (La Plata)", "Argentina (Mendoza)",
"Austria", "Belgium", "Brazil (PR)", "Brazil (RJ)", "Brazil (SP 1)",
"Brazil (SP 2)", "Canada (BC)", "Canada (NS)", "Canada (ON)",
"Canada (QC 1)", "Canada (QC 2)", "Chile", "Colombia (Bogota)",
"Colombia (Cali)", "Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)",
"France (Montpellier)", "France (Paris 1)", "France (Paris 2)",
"Germany (Berlin)", "Germany (Bonn)", "Germany (Goettingen)",
"Greece", "Hungary", "Indonesia", "Ireland", "Italy (Milano)",
"Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)", "Latvia",
"Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela"), NULL)),

"US (MA)" = structure(c(130.857283859742, 64.1578494094488, 64.4284149314708,
140.000805412372, 114.331808348925, 93.0142337328767, 43.1722723860826,
78.9029716752744, 87.8653509166069, 45.3004829966642, 101.8505859375,
190.671923751948, 149.049637957316, 127.445988660062, 64.1915457589282,
42.7601902173913, 51.7445821867063, 76.0078999533587, NA, 33.912514740566,
55.4037638825928, 112.335205078126, 108.351687167553, 54.9553521245503,
72.2771751182731, 90.1332618915933, 54.6115742292225, 70.6886657750145,
133.283209514724, 19.1418485708692, 79.7785268439942, 57.2462309718972,
54.9059762466308, 60.7156995156481, 23.681593320093, 105.181327990534,
56.7412735027852, 44.8342621717726, 73.3617665816328, 68.1654785973238,
55.9106601669715, 101.681117408486, 63.92296188546, 60.9275688559322,
64.3605598341232, 105.544648639895, 40.8628228435308, 86.6199171686746,
79.1072512135929, 70.4848345588232, 92.5914417613621, 73.8940163996361,
85.1712216898953, 108.834107858416, 113.167317708332, 95.0394270023327,
68.5477863853062, 114.546113519212, 114.977143109123, 112.645809331799,
109.32084358229, 167.425620719174, 90.9380231584825, 84.3483113354047,
123.802162009064, 108.447828859804, 128.788939014751, 80.0922038827008,
79.2097881561889, 100.098855958231, 58.0069782273375, 79.9350576357098,
30.9968813403501, 129.197360597252, 108.447828859804, 57.2462309718972,
260.598514125803, 269.802876655627, 447.694883241718, 243.953499251509,
66.5327725231349, 31.6436414092665, 94.3789213320452, 117.181882190798,
NA, 132.848590353263, 66.7872694672127, 117.519906850962, 119.007500608567,
48.6741151433687, 127.845923770918, 91.8952655075179, 79.9873711551052,
126.522467003108, 123.08227907855, 28.6970422927916, 112.232050619835,
63.656616210937, 91.1414639261759, 53.8891989087301, 28.6566713071513,
97.3094770103503, 69.7606752996583, 57.4465172313088, 39.6177319692057,
85.5288335374386, 38.6529737903225, 54.2961808640603, 106.186536164204,
104.641012949483, 119.12349232456, 114.438860603934, 25.8285509562551,
56.4269174168976, 59.0723553044944, 96.6171566205501, 90.2663981720837,
116.845796486617, 85.2900928995119, 288.256375294826, 231.4786044034,
331.221417682902, 265.120831073745, 151.638589485115, 153.736733490574,
59.6780776977539, 78.3968589640811, 105.0908883276, 158.316972959846,
123.455255681817, 63.2709968476569, 209.282025898971, 127.579022051152,
68.6633163623584, 47.6122723509932, 162.9609375, 76.2925737359562,
128.653371710528, 62.1355887773264, 109.32084358229, 108.834107858416,
55.8085402397261, 131.703343884699, 278.407068621854, 334.8512414384,
479.296875000009, 109.32084358229, 115.108189957861, 81.1019927836759,
129.471083818861, NA, 66.4242951766313, 39.3498722231166, 75.8663582402239,
53.1856845626631, 59.5327341086216, 107.778397817459, 70.893679306845,
122.958453848085, 114.977143109126, 117.181882190795, 28.7307717736247,
87.7391982232573, 58.5628668543367, 122.465634393789, 40.2306461899274,
18.3597270730059, 53.511691385727, 199.381244902121, 73.4820961595935,
95.7092428543471, 105.362675107756, 68.2035173688605, 96.5408397511833,
62.4850220475473, 75.2590536483979, 75.6316232209165, 180.53279634416,
37.8626713522304, 128.788939014751, 115.302550117924, 113.799537360334,
208.212441439507, 122.098604520475, 88.5015953113704, 301.779513888909,
109.516759072582, 84.9344705524657, 268.027857730253, 59.1867811743342,
132.416796451787, 129.608380832444, 133.428715201966, 84.5818014705853,
77.0622340006299, 86.497312898092, 84.1447959445578, 163.178508845122
), .Dim = c(66L, 3L), .Dimnames = list(c("0-Cloud", "Argentina (La Plata)",
"Argentina (Mendoza)", "Austria", "Belgium", "Brazil (PR)", "Brazil (RJ)",
"Brazil (SP 1)", "Brazil (SP 2)", "Canada (BC)", "Canada (NS)",
"Canada (ON)", "Canada (QC 1)", "Canada (QC 2)", "Chile", "Colombia (Bogota)",
"Colombia (Cali)", "Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)",
"France (Montpellier)", "France (Paris 1)", "France (Paris 2)",
"Germany (Berlin)", "Germany (Bonn)", "Germany (Goettingen)",
"Greece", "Hungary", "Indonesia", "Ireland", "Italy (Milano)",
"Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)", "Latvia",
"Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela"), NULL)),

"New Zealand" = structure(c(52.3429135438972, 58.0345219017094, 16.2376382522918,
54.6359870920876, 40.0723616803279, 43.5724431818182, 43.6658460610933,
66.3161709848074, 65.674746440086, 82.4144997471344, 56.6623565716272,
63.5242739734927, 75.3518514950678, 76.3402268113679, 67.1173548187807,
35.0343536263893, 28.0644553673938, 23.5719774590164, 37.9096473712779,
50.5880393729305, 17.0318705581104, 48.8296856272473, 44.395460633854,
21.3225232248779, 47.4091168056633, 60.3261121051334, 64.5645552694136,
66.6052878065392, 51.9204346325404, 35.6952988098716, 42.9447305428673,
39.8892634219973, 49.8249910823481, 61.7588191637191, 76.1499707943923,
58.2003348214283, 37.5255459395148, 32.1400122549019, 25.9436856559117,
36.7139390582758, 7638.79394530995, 31.844893987754, 29.6724212490897,
38.003949976679, 43.3714347498224, 50.6929502799668, 39.7983403207425,
43.2946167640807, 44.7694883241755, 48.8492018884896, 125.48326809548,
106.002344427578, 77.4038651836602, 63.6897879755087, 62.8061167137719,
56.4790679875234, 71.0172592242881, 56.0645427178897, 79.3125912556783,
111.109730113637, 81.1558453685259, 49.1438291616406, 48.5195328007145,
40.5375466417912, 95.4468531638212, 55.8595535306211, 312.584918478268,
39.630578185798, 30.7938279478459, 54.7829238570149, 34.3799446202534,
22.0336583964305, 49.7844004582482, 66.3521732491862, 49.3422297638271,
70.1611384184849, 54.9553521245506, 44.9175682194046, 35.0202587750715,
69.5225842576788, 50.1109893911435, 35.2553905577861, 35.0805692092422,
48.5580862634089, 48.3467971222312, 68.7019129426646, 50.3795148907664,
48.849201888489, 49.7641299368895, 44.0593738734679, 48.3659292144838,
59.8241327092509, 70.0004027061852, 71.683696847508, 60.4155724789917,
44.5086318736347, 53.8654487108857, 49.1438291616401, 49.8453112255302,
55.0295826767221, 80.620516573218, 65.1496285314507, 29.2884503055356,
57.0466574825993, 54.7338571988355, 38.6529737903229, 7189.45312500173,
50.3172923528195, 47.5381964702456, 50.8828905599491, 12.209860452048,
68.013746869782, 63.0003624355671, 39.7853851318359, 50.0904521004099,
48.88828125, 149.049637957318, 105.5446486399, 77.5020311509196,
81.1019927836759, 117.633015519732, 69.0512447033905, 88.3736103579188,
75.8663582402239, 69.2861128826527, 111.008813010899, 90.7354885857474,
60.6554357940451, 75.4448784722247, 84.6990319646546, 95.9684206674469,
76.007899953358, 614.174387562776, 29.5219089673914, 46.2957208806821,
64.2928475144657, 42.8243528819195, 58.2835971030049, 49.8656479498171,
66.2442835365864, 65.4636867300476, 96.5408397511833, 62.5810051843326,
79.2097881561889, 76.5314358954299, 76.0551979620424, 76.4357117729809,
40.4260265948702, 35.2119571089023, 49.2825415826609, 27.8724522519955,
68.2415986180906, 50.358756953028, 49.3621579664782, 56.63609968721,
57.0325259566021, 24.0260867161392, 52.4552373927042, 69.6017671554658,
72.1066095132746, 56.2451463989875, 42.2032814658147, 36.3535702334923,
57.6512750589621, 56.9527973555448, 62.1355887773264, 85.4690231643353,
64.530466275079, 48.4810405097181, 59.3604765210052, 54.5384663654622,
20.2285175645483, 8148.04687500741, 48.7517762764259, 48.3085783102772,
49.4220392741607, 42.6153079236402, 23.9319959124732, 40.1909579496876,
49.8453112255302, 50.3795148907669, 48.9078443877558, 149.049637957318,
106.464027112367, 87.0517828525608, 80.9945017395618, 116.957610645938,
69.2076461636481, 88.4375565303904, 67.4507191639068, 68.9344067258896,
19.2050130617537, 93.7275330713209, 65.3586647727271, 72.7071404669847,
79.2097881561889, 96.1936986502375, 54.9553521245492), .Dim = c(66L,
3L), .Dimnames = list(c("0-Cloud", "Argentina (La Plata)", "Argentina (Mendoza)",
"Austria", "Belgium", "Brazil (PR)", "Brazil (RJ)", "Brazil (SP 1)",
"Brazil (SP 2)", "Canada (BC)", "Canada (NS)", "Canada (ON)",
"Canada (QC 1)", "Canada (QC 2)", "Chile", "Colombia (Bogota)",
"Colombia (Cali)", "Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)",
"France (Montpellier)", "France (Paris 1)", "France (Paris 2)",
"Germany (Berlin)", "Germany (Bonn)", "Germany (Goettingen)",
"Greece", "Hungary", "Indonesia", "Ireland", "Italy (Milano)",
"Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)", "Latvia",
"Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela"), NULL)),

"US (MN)" =structure(c(177.131453804348, 71.0172592242882, 40.7266588220593,
137.791097096956, 88.8877840909091, 67.1542324862638, 76.2449801154086,
122.711549322289, 112.0263090055, 117.859887295082, 178.424384124088,
195.553125, 277.77432528409, 284.896743881118, 101.008845557851,
51.1379146734609, 29.7953932532911, 97.3870144422311, 95.2616548129383,
134.308464972527, 100.180904200819, 98.6446352905571, 96.4646433504339,
97.0005580357144, 82.8614936440677, 114.011849930037, 82.4701100708502,
97.1547719594593, 58.0069782273375, 43.3253112814605, 80.197311761811,
70.934824796866, 79.1072512135921, 60.2072429187192, 62.1040158155489,
121.010597153466, 130.857283859742, 101.515728220479, 104.462139423077,
115.193876649387, 46.1732916981489, 87.9918669006482, 96.0099788884517,
86.3140558792375, 71.0998854712038, 106.371369125326, 45.6729084921524,
98.9641320850203, 116.069043803419, 96.6171566205533, 208.924278846156,
125.612233427544, 193.081679502371, 278.407068621872, 170.699306040504,
181.067708333334, 189.489462209303, 136.559444832403, 238.246984649127,
313.38641826923, 180.266523783187, 206.105738827992, 170.699306040504,
142.282541472643, 157.005806992337, 199.381244902121, 513.53236607143,
61.3557746611444, 61.202154794692, 133.138020833334, 93.2270809496563,
111.821320333944, 81.1019927836759, 114.76122359155, 112.749726130073,
166.060737941575, 203.701171875002, 246.412707913302, 272.814069475451,
286.23115485948, 99.9351619991824, 55.5515349638501, 22.9006376475549,
97.2320629474947, 78.9539425872092, 134.161035263447, 97.854846377102,
100.098855958231, 108.544141318827, 108.255715788308, 104.106220719762,
99.6906224510604, 117.069639008621, 109.418713630259, 110.807527765186,
50.735036581569, 101.596594451371, 87.9918669006473, 84.5818014705886,
42.2324475207325, 54.9800733805665, 122.958453848089, 151.826960403731,
105.614730992267, 101.512211897842, 128.788939014751, 103.139833860759,
88.5015953113686, 96.0854584316044, 97.698403776978, 86.3140558792375,
143.11557742974, 73.5826027242637, 112.026309005499, 131.98780035097,
111.008813010899, 253.569923495851, 131.845418689321, 245.423098644569,
352.221046469761, 270.99934174058, 213.29965641361, 329.435857479801,
157.907885174424, 298.828125000006, 363.752092633946, 104.283876386517,
205.412946428572, 143.958425353359, 164.940220141704, 154.830663570527,
172.628111758475, 233.245616650763, 66.3521732491852, 25.3517326540137,
133.138020833332, 74.7070312499989, 112.438549333028, 86.1315737315004,
114.977143109123, 112.026309005502, 97.3870144422314, 204.38244669732,
257.849584651904, 257.306743421056, 279.042701198638, 100.098855958231,
52.3575582942927, 19.7480535021812, 102.448200440066, 87.4253956545049,
133.283209514722, 99.6906224510604, 97.1547719594587, 108.255715788309,
108.737280360318, 105.362675107759, 105.181327990536, 132.560415536877,
104.641012949488, 108.931107954547, 44.5086318736347, 100.676032228171,
92.6616399734656, 88.8231854106102, 42.2470456705842, 57.5969383246941,
122.958453848089, 101.765781119898, 105.162999893073, 119.356155395508,
129.471083818854, 98.5650831653219, 113.167317708332, 95.5595802384678,
87.3629043066476, 96.161056746655, 141.623062717265, 73.6269295933736,
112.958135975044, 116.511633102954, 96.8468329041204, 251.482928240731,
115.958921370971, 245.423098644569, 340.447641016705, 249.430006377546,
212.928054224745, 322.48206629286, 134.161035263447, 301.036214593592,
349.202008928577, 185.463889415784, 155.893753985965, 135.951838848721,
164.054635067113, 156.605792197453, 154.709750791141), .Dim = c(66L,
3L), .Dimnames = list(c("0-Cloud", "Argentina (La Plata)", "Argentina (Mendoza)",
"Austria", "Belgium", "Brazil (PR)", "Brazil (RJ)", "Brazil (SP 1)",
"Brazil (SP 2)", "Canada (BC)", "Canada (NS)", "Canada (ON)",
"Canada (QC 1)", "Canada (QC 2)", "Chile", "Colombia (Bogota)",
"Colombia (Cali)", "Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)",
"France (Montpellier)", "France (Paris 1)", "France (Paris 2)",
"Germany (Berlin)", "Germany (Bonn)", "Germany (Goettingen)",
"Greece", "Hungary", "Indonesia", "Ireland", "Italy (Milano)",
"Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)", "Latvia",
"Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela"), NULL)),
China = structure(c(21.6279871323529, 18.5199652777778, 8.89749221530249,
18.5199652777778, 7.11900715404328, 12.3041107898622, 14.4020467309908,
17.9611732219828, 21.152244606599, 21.8931288309982, 16.9850225033967,
13.4854116100324, 12.054943647541, 22.2833806818182, 15.7840613162879,
19.6773523082942, 21.1165144636824, 26.1526706328452, 20.6627711776859,
27.0583908279221, 19.2916304976852, 18.7420937968516, 21.9700818321617,
24.0866600433526, 20.8349609375, 23.2360159154275, 21.8931288309983,
17.9097085422636, 15.1343541918886, 22.0087615536972, 27.2947086517466,
16.825002102961, 18.2496008211679, 88.6594082446811, 86.2136314655179,
27.5351906662994, 21.3327245093856, 15.504103729963, 16.0063720390525,
14.70703125, 16.6457743841544, 18.1173573369564, 14.4687228732639,
16.2350344967533, 13.5145692567568, 20.9747928901007, 20.5608167146382,
24.9520490269462, 26.0437011718749, 32.8973067434214, 29.3450154049296,
25.6167552510246, 30.8666087962962, 11.6396429818436, 15.1526988636364,
19.1146430619265, 17.0545382844475, 25.1528703470826, 27.5959747516558,
30.1955955615943, 23.1929064239333, 24.1798386121856, 30.6396484375001,
NA, 32.5746842616584, 15.4906772769517, 21.8548541302447, 13.3414904615795,
8.87223318843153, 13.3986887057878, 17.1716711023352, 14.8467655136579,
8.38429011569415, 19.7487781398103, 20.9747928901009, 26.4851198358049,
25.935636021784, 27.1170858188719, 18.1436524854862, 22.7290482954545,
7.23017730624635, 7.99353345518117, 21.045415088384, 24.0403395432695,
11.3233483355979, 24.85283610835, 2.44359789419995, 27.7799479166667,
20.731304415423, 22.8120010264598, 20.162865423387, 23.6313356568995,
23.5423287429376, 20.260902046191, 11.2824698217509, 14.9354558691756,
27.9663905201348, 16.4703248517788, 15.5484783115672, 96.1613581730803,
81.7057291666621, 19.9060136345542, 25.5121970663266, 15.9364108048163,
16.2773132324217, 24.226698764535, 26.4851198358056, 21.3327245093856,
22.0087615536974, 6.10697438324376, 19.2322716346154, 28.2827524038464,
47.8964619252871, 31.8902463329085, 29.9066424940195, 26.9999493790497,
25.6167552510246, 16.7125355113636, 45.7911229395601, 14.0618409026997,
32.3859496437832, 27.9039655412945, 24.7054872776677, 27.1170858188719,
39.939222244409, 30.8666087962966, 26.4851198358049, 31.8902463329076,
27.9663905201341, NA, 31.6721111460964, 12.9142319860538, 25.3056205718621,
15.5291634316769, 13.0083002731529, 1.98870133033726, 19.1439151033691,
15.0252122145434, 18.410863862297, 22.4434049596053, 20.731304415423,
25.4602373981678, 18.4380185287611, 14.9533212470097, 24.4637506115454,
22.6466966711957, 15.282367435819, 13.9399424889136, 15.6653841635342,
22.0475777116408, 15.8240209651901, 25.616755251024, 27.9663905201341,
23.1071655499072, 23.236015915427, 23.7210181451614, 21.7787048127177,
21.9700818321615, 19.2322716346154, 18.9122187027234, 10.7674216731265,
17.7318816489357, 22.8537048674588, 12.0086230187322, 21.5534078663795,
110.628111172556, 83.33984375, 19.1732769363497, 22.2833806818177,
13.549383755388, 6.12192779750243, 20.5946895593083, 24.040339543269,
19.8743665540542, 19.5023035296416, 16.8704137145747, 25.6693563911698,
22.4031838037637, 25.3056205718621, 20.0336162860577, 4.84909874418154,
14.6897491921269, 16.7798343120809, 16.7798343120809, 21.627987132353,
19.3214475463678, 24.6082215797248, 19.1439151033691, 15.6457779255319,
20.9747928901005, 22.4031838037637, 27.9663905201341, 22.9797363281248,
20.0015625, 23.8568255009542, NA, 22.6147987859714, 17.6817207390383
), .Dim = c(66L, 3L), .Dimnames = list(c("0-Cloud", "Argentina (La Plata)",
"Argentina (Mendoza)", "Austria", "Belgium", "Brazil (PR)", "Brazil (RJ)",
"Brazil (SP 1)", "Brazil (SP 2)", "Canada (BC)", "Canada (NS)",
"Canada (ON)", "Canada (QC 1)", "Canada (QC 2)", "Chile", "Colombia (Bogota)",
"Colombia (Cali)", "Denmark", "Ecuador", "France (Lyon 1)", "France (Lyon 2)",
"France (Montpellier)", "France (Paris 1)", "France (Paris 2)",
"Germany (Berlin)", "Germany (Bonn)", "Germany (Goettingen)",
"Greece", "Hungary", "Indonesia", "Ireland", "Italy (Milano)",
"Italy (Padua)", "Japan (Tsukuba)", "Korea (Seoul 1)", "Latvia",
"Mexico (Mexico City)", "Mexico (Texcoco)", "Netherlands (Amsterdam)",
"Netherlands (Utrecht)", "New Zealand", "Norway", "Poland", "Slovakia",
"Sweden", "Switzerland", "Taiwan (Taichung)", "UK (Bristol)",
"UK (London)", "UK (St Andrews)", "USA (CA 1)", "USA (CA 2)",
"USA (IA)", "USA (IN)", "USA (KS)", "USA (MD)", "USA (MI)", "USA (MO)",
"USA (OH)", "USA (OR)", "USA (PA 2)", "USA (TN)", "USA (TX 1)",
"USA (WA 1)", "USA (WA 2)", "Venezuela"), NULL))
)

rowMaxes <- function(x) apply(x, 1, max, na.rm = TRUE)
rowMedians <- function(x) apply(x, 1, median, na.rm = TRUE)
speeds <- speeds[order(names(speeds))]

# Find best speed for each mirror in each location
best <- lapply(speeds, rowMaxes)
in_one <- do.call("cbind", best)

# Compute relative speed of each mirror to the median
# (this hopefully removes the effect of geneeral internet speed)
rel <- apply(in_one, 2, function(x) x / median(x))

# For each mirror, find the average relative speed across all locations
out <- cbind(out, median = rowMedians(out))
round(out * 100) / 100

# Find the top 5 mirrors
top5 <- order(-out[, "median"])[1:5]
out[top5, "median", drop = F]

there is somthing wrong with out <- cbind(out, median = rowMedians(out)): out was not defined