Skip to content

Instantly share code, notes, and snippets.

@jebyrnes
Last active September 26, 2016 13:34
Show Gist options
  • Save jebyrnes/529ba009c17280d75153dc30a8922c78 to your computer and use it in GitHub Desktop.
Save jebyrnes/529ba009c17280d75153dc30a8922c78 to your computer and use it in GitHub Desktop.
testFrame <- structure(list(Year = c(1948, 1949, 1950, 1951, 1952), `X_-177_52` = c(18.9220237749285,
21.8483886536779, 18.620676780609, 27.0751608868709, 32.4921595618974
), `X_-172.5_52` = c(31.9994862200926, 38.5639899672935, 31.836112737235,
42.7914952437946, 53.1652576093285), `X_-168_53` = c(26.226590342774,
35.5284697356814, 26.2798166889216, 37.5791359982477, 45.5915562248318
), `X_-136.5_58` = c(24.7796363128934, 24.5255804518598, 16.5003662047736,
23.5168277681755, 32.9788961278221), `X_-132_53` = c(19.5107068615539,
19.6662279616348, 16.0907033411067, 19.1839879174579, 24.0906788816321
), `X_-130.5_52` = c(25.4554902780508, 27.105312123341, 25.5231126523454,
25.9769619101539, 33.7769913419713), `X_-127.5_50` = c(31.9535070030102,
30.5990638613116, 28.2808656617163, 31.8975800711754, 39.9396347560919
), `X_-124.5_42` = c(29.4407027317988, 29.3643007630306, 28.6570702379442,
34.3924071640684, 41.3671953122702), `X_-124.5_43` = c(28.2254710443438,
27.6101254492052, 27.4876661783097, 32.5680923561208, 38.9921021650122
), `X_-124.5_45` = c(30.8346147349034, 30.3845965049615, 30.039025094086,
34.8195819701123, 40.8115667878143), `X_-124.5_49` = c(21.3060348042042,
21.4539123520244, 19.6681386749183, 22.3634975379231, 27.0849964742434
), `X_-123_37` = c(26.4057060104682, 26.1103321071373, 25.6222663795576,
29.4071637407657, 37.505107985274), `X_-121.5_35` = c(15.5647002610253,
16.753012402329, 16.6039030695513, 17.4663514026902, 23.3539541580379
), `X_-120_33` = c(17.7431921810136, 19.6252036959146, 18.9118884548468,
19.6105974259583, 26.8529007867739), `X_-120_34` = c(9.63652311129539,
11.1692935184401, 11.142760734683, 10.8711427261238, 14.4291392905882
), `X_-118.5_33` = c(6.17235484962165, 7.6691275959783, 7.46237324895875,
7.22921486921785, 9.54839433197898), `X_-117_31` = c(9.57535482696248,
11.9301301060324, 11.3336634306861, 11.2788802891637, 14.8685479104326
), `X_-117_32` = c(4.96571225381562, 6.44077600955701, 6.35701752305866,
5.87538136256987, 7.66586328547667), `X_-115.5_28` = c(10.5004264787462,
12.7841281659492, 12.0156218456011, 12.0344257898494, 15.1194224085539
), `X_-73.5_-42` = c(27.9799610190361, 25.685800967478, 26.8813091218089,
26.1587350608589, 22.894860142154), `X_-72_-33` = c(23.0135392002784,
23.1447083645861, 26.3074406854801, 25.4406584829043, 20.7051359007179
), `X_-72_-32` = c(25.3140636762021, 25.4273819715722, 29.1474790027659,
27.7759390778354, 23.1804559848266), `X_-72_-31` = c(25.9407593206756,
26.0709546586995, 30.201292220123, 28.5785948283612, 24.4591351534134
), `X_-72_-30` = c(26.7676249768121, 27.0985773492685, 32.1440477625208,
29.8178255547089, 26.0269370316564), `X_-70.5_-23` = c(6.34529635724589,
7.99751738542827, 9.48028634776085, 9.47917780420463, 7.95741429536114
), `X_-70.5_-21` = c(10.6093320837759, 12.2359222234785, 14.7565299086471,
13.3299716358555, 11.634168515305), `X_-69_44` = c(4.53289242031026,
4.19009609451509, 6.40930370585957, 5.21769159159364, 4.2182584701405
), `X_-67.5_44` = c(5.68933190911601, 5.62350322947056, 7.37083803327163,
6.55466598760672, 5.62715121243511), `X_-52.5_47` = c(29.1062056460359,
25.5725167363587, 21.979345439045, 23.6206145794636, 25.8968191197707
), `X_-10.5_54` = c(60.821954478578, 67.830903513621, 70.1242887501318,
65.9251793769884, 55.9865770563208), `X_-9_55` = c(47.233548074046,
58.2962160646104, 55.8681338681823, 53.2639887530653, 46.8867732228279
), X_4.5_60 = c(28.2310069778198, 32.8454489410369, 25.8778160429553,
25.1881817654309, 23.5201244057739), X_4.5_61 = c(30.5879776604414,
35.6013489174492, 27.291340252472, 26.3973321993944, 25.4067189873693
), X_12_66 = c(35.5973952155027, 39.2395025054144, 25.6369875588992,
23.6043546991279, 20.9825250642785), `X_19.5_-35` = c(55.4609962132127,
35.2048577036501, 44.7356205422531, 41.2785981225198, 44.9548434572788
), `X_114_-30` = c(55.4553014585537, 48.4856717787628, 51.9586048870631,
51.5108225808151, 57.0752687054741), `X_115.5_-32` = c(41.9349927199817,
34.5058338869753, 38.29302162288, 38.0978275723906, 42.4302442521385
), `X_115.5_-31` = c(35.4949338093589, 29.0690470641464, 32.6005428751364,
32.5747401856147, 36.1989543595091), `X_138_-36` = c(35.4952988973382,
33.6858694957578, 27.8223380669768, 36.941317898365, 39.6116372609545
), X_139.5_42 = c(6.58797148723084, 8.39956288502504, 9.24912094712997,
8.83134972039448, 8.42579767492038), `X_144_-41` = c(58.6251544849031,
62.7728140539724, 45.5350683838527, 56.6786132526791, 65.9439405784609
), `X_144_-39` = c(27.7226858086176, 28.4624632174309, 20.8365461058321,
27.6836257704576, 34.454622808137), `X_145.5_-43` = c(60.1695199638165,
67.4503023412751, 48.9000386524995, 56.9608577962361, 64.880244879283
), `X_145.5_-39` = c(20.6181581176682, 21.2780731837173, 15.9107585695131,
20.5334851629152, 26.3385063082866), `X_147_-39` = c(14.2852802064858,
14.4050486874774, 11.299788603528, 14.4366177992973, 20.5001022263965
), `X_148.5_-43` = c(31.1651304993594, 37.8226246884602, 27.1873048401818,
31.3974262160931, 34.4279411318564), `X_148.5_-42` = c(11.9663856188276,
14.2630223181332, 11.7335841931825, 13.4247218828276, 17.9855990705324
), `X_148.5_-41` = c(10.8944564856947, 12.8403705400673, 10.9692582575512,
12.2993276821441, 19.453952210344), `X_148.5_-40` = c(11.1172153207894,
12.5912252670984, 11.0115638163756, 13.1592634947897, 20.5628857715704
), `X_150_-38` = c(17.8769918991044, 20.8403803348618, 17.0601539665279,
18.6949260712698, 28.1557817870005), `X_151.5_-35` = c(17.6126797479878,
19.7037720815672, 19.9549452792722, 18.4751541044565, 26.2398134616051
), `X_151.5_-34` = c(13.355124897223, 14.1035053296767, 16.2529506816686,
14.8240666174167, 20.2650370320471), X_172.5_53 = c(36.9888734426263,
31.4043781575228, 32.6548274136997, 35.7890394613817, 40.5794956498472
), X_174_53 = c(33.8509387489742, 28.7064569185311, 29.8026869731372,
35.5195319715547, 36.4702901099294), `X_175.5_-37` = c(13.4407207164564,
13.2258669378693, 12.6812195800704, 18.388443204233, 19.3670697986936
), `X_175.5_-36` = c(9.5330294757692, 9.55241855019714, 10.7286140255944,
12.672243988854, 12.712085759738), X_177_52 = c(37.9465390602973,
39.0884324727951, 36.4496803796756, 44.3728947822202, 47.2560225504924
), X_178.5_51 = c(39.6695608516402, 43.9599000696313, 37.7773947056492,
50.9691628698048, 56.3999583848495), X_180_51 = c(39.3469546497371,
45.0639664983334, 38.0396510341576, 52.5603927933726, 58.4231435533623
), `X_-10.5_52` = c(53.4459283034093, 56.2437485676249, 64.2155954167663,
62.5616464720716, 47.1198168845235), `X_-10.5_53` = c(54.4346074406014,
59.8257455415009, 63.938219785023, 61.7219211188028, 49.4087078158926
), `X_-10.5_54` = c(60.821954478578, 67.830903513621, 70.1242887501318,
65.9251793769884, 55.9865770563208), `X_-9_51` = c(40.9499250948725,
37.7025163782091, 46.892242554125, 45.3813574676897, 31.6105636477956
), `X_-9_55` = c(47.233548074046, 58.2962160646104, 55.8681338681823,
53.2639887530653, 46.8867732228279), `X_-7.5_51` = c(29.9005690498374,
25.1075917211599, 34.0543356479421, 31.0390548666567, 21.182723632308
), `X_-7.5_56` = c(44.8595859337109, 54.6264416418502, 48.1518154921412,
46.8311045234509, 40.6612593427352), `X_-6_48` = c(32.7761247114794,
32.0261718450309, 41.9325540536137, 42.4955837744321, 29.341576344144
), `X_-4.5_47` = c(25.582568427318, 23.9630562708896, 33.0761577092097,
34.9502640671025, 23.9586015207479), `X_-3_46` = c(22.6498672358141,
21.6631683432106, 29.7123048034265, 31.8057401980202, 21.7582888002909
), `X_-1.5_46` = c(13.3423075185863, 11.8637882541666, 17.6197285874245,
18.4937870231437, 12.5193497529738), X_4.5_58 = c(23.0275288487072,
31.1638625575933, 21.6293356770157, 24.6116139472241, 21.2149181479822
), X_4.5_59 = c(26.9891097503146, 33.5673190947256, 24.983139679228,
26.2271639601124, 23.1727562434888), X_4.5_60 = c(28.2310069778198,
32.8454489410369, 25.8778160429553, 25.1881817654309, 23.5201244057739
), X_4.5_61 = c(30.5879776604414, 35.6013489174492, 27.291340252472,
26.3973321993944, 25.4067189873693), X_6_57 = c(16.3099702489707,
21.9315744141292, 14.3168217098611, 16.392003917886, 14.3086428903653
), X_7.5_57 = c(12.2180788893007, 15.4951868605214, 9.88497231423239,
11.1306688420148, 9.50194724548277), X_12_66 = c(35.5973952155027,
39.2395025054144, 25.6369875588992, 23.6043546991279, 20.9825250642785
), `X_15_-27` = c(27.4662342389614, 19.5858521681142, 25.1869786358946,
23.2565071252832, 25.4125776515547), `X_18_-34` = c(52.5383217215101,
34.315411540945, 43.4788161339601, 39.702905722695, 43.5048448328435
), `X_19.5_-35` = c(55.4609962132127, 35.2048577036501, 44.7356205422531,
41.2785981225198, 44.9548434572788), `X_114_-34` = c(64.3434367998211,
54.1971183436663, 57.9863062090872, 59.7490390599548, 67.0930885679875
), `X_114_-30` = c(55.4553014585537, 48.4856717787628, 51.9586048870631,
51.5108225808151, 57.0752687054741), `X_115.5_-35` = c(65.3454410628476,
54.0341353437708, 57.4701765124672, 60.8293409854266, 68.7180907909767
), `X_115.5_-33` = c(23.3453215435703, 18.4092593941384, 20.8235447248646,
20.9458953817136, 23.0634764698894), `X_115.5_-32` = c(41.9349927199817,
34.5058338869753, 38.29302162288, 38.0978275723906, 42.4302442521385
), `X_115.5_-31` = c(35.4949338093589, 29.0690470641464, 32.6005428751364,
32.5747401856147, 36.1989543595091), `X_133.5_-33` = c(23.8989874325143,
21.5046820429624, 20.3904968085384, 24.1916940997783, 25.6290598071829
), `X_135_-35` = c(46.4968125714303, 42.0659179708208, 37.1691952604724,
47.5747574247091, 50.4344420274551), `X_136.5_-36` = c(45.2099410763709,
41.6435218678502, 36.1067820228999, 47.1931425218588, 50.4487050604617
), `X_138_-36` = c(35.4952988973382, 33.6858694957578, 27.8223380669768,
36.941317898365, 39.6116372609545), `X_139.5_-37` = c(42.5493517611491,
40.5776556005562, 32.324227724017, 44.0104414329166, 48.2853941447478
), X_139.5_42 = c(6.58797148723084, 8.39956288502504, 9.24912094712997,
8.83134972039448, 8.42579767492038), X_141_42 = c(6.03391442152834,
6.40941188044948, 7.2565128469075, 6.25234630405462, 6.39666350821165
), X_142.5_38 = c(10.8772074343837, 12.7050792909265, 16.0194409342811,
13.4473881000876, 12.3056432810032), `X_144_-41` = c(58.6251544849031,
62.7728140539724, 45.5350683838527, 56.6786132526791, 65.9439405784609
), `X_144_-40` = c(40.0712501386801, 42.7391942861034, 30.4076934356221,
39.4152966416924, 48.8251866008943), `X_144_-39` = c(27.7226858086176,
28.4624632174309, 20.8365461058321, 27.6836257704576, 34.454622808137
), `X_145.5_-44` = c(65.2484660374178, 72.4795702039085, 54.2663435093969,
62.9383449746207, 73.5702213360846), `X_145.5_-43` = c(60.1695199638165,
67.4503023412751, 48.9000386524995, 56.9608577962361, 64.880244879283
), `X_145.5_-40` = c(15.4469316808987, 16.0123565553146, 12.5065958231216,
16.2060761200457, 22.8590104721148), `X_145.5_-39` = c(20.6181581176682,
21.2780731837173, 15.9107585695131, 20.5334851629152, 26.3385063082866
), `X_147_-44` = c(66.2600693847262, 74.728240721479, 55.3823674526305,
63.8061207272854, 72.9275819154572), `X_147_-40` = c(10.0560656789328,
10.2390231609988, 8.02575595004207, 11.2792423655028, 17.0900615403043
), `X_147_-39` = c(14.2852802064858, 14.4050486874774, 11.299788603528,
14.4366177992973, 20.5001022263965), `X_148.5_-43` = c(31.1651304993594,
37.8226246884602, 27.1873048401818, 31.3974262160931, 34.4279411318564
), `X_148.5_-42` = c(11.9663856188276, 14.2630223181332, 11.7335841931825,
13.4247218828276, 17.9855990705324), `X_148.5_-41` = c(10.8944564856947,
12.8403705400673, 10.9692582575512, 12.2993276821441, 19.453952210344
), `X_148.5_-40` = c(11.1172153207894, 12.5912252670984, 11.0115638163756,
13.1592634947897, 20.5628857715704), `X_148.5_-39` = c(18.6268154043519,
19.5960330164129, 16.3389146827543, 19.9218715646421, 28.4861045843574
), `X_150_-38` = c(17.8769918991044, 20.8403803348618, 17.0601539665279,
18.6949260712698, 28.1557817870005), `X_150_-37` = c(11.9287976494466,
13.2017041995676, 13.1959727986736, 12.5674095043704, 19.8847563679546
), `X_151.5_-36` = c(18.0876382730853, 20.6404351609784, 18.8262062692302,
19.0120288358269, 27.1826204421738), `X_151.5_-35` = c(17.6126797479878,
19.7037720815672, 19.9549452792722, 18.4751541044565, 26.2398134616051
), `X_151.5_-34` = c(13.355124897223, 14.1035053296767, 16.2529506816686,
14.8240666174167, 20.2650370320471), X_166.5_55 = c(25.7643149371481,
20.4227800200935, 24.7641411808645, 31.5943028875932, 30.7586926853633
), X_172.5_53 = c(36.9888734426263, 31.4043781575228, 32.6548274136997,
35.7890394613817, 40.5794956498472), `X_174_-41` = c(5.85088249187763,
4.75696515928871, 4.40184324773615, 6.69096766618894, 7.62826206751946
), `X_174_-37` = c(27.3422060774359, 30.1371284324499, 23.2394791861689,
30.7457163837514, 32.5981552797474), `X_174_-35` = c(9.49098709002309,
9.35009636296172, 10.6446884583999, 11.7455733511893, 12.8535292658729
), X_174_52 = c(42.6459264123642, 38.0725616299577, 40.0520527941843,
44.6937105303085, 46.7224294718351), X_174_53 = c(33.8509387489742,
28.7064569185311, 29.8026869731372, 35.5195319715547, 36.4702901099294
), `X_175.5_-37` = c(13.4407207164564, 13.2258669378693, 12.6812195800704,
18.388443204233, 19.3670697986936), `X_175.5_-36` = c(9.5330294757692,
9.55241855019714, 10.7286140255944, 12.672243988854, 12.712085759738
), X_177_52 = c(37.9465390602973, 39.0884324727951, 36.4496803796756,
44.3728947822202, 47.2560225504924), X_178.5_51 = c(39.6695608516402,
43.9599000696313, 37.7773947056492, 50.9691628698048, 56.3999583848495
), X_178.5_52 = c(27.8048191004582, 28.9281975171371, 25.7893124780528,
33.7671027468919, 35.6319203593104), X_180_51 = c(39.3469546497371,
45.0639664983334, 38.0396510341576, 52.5603927933726, 58.4231435533623
)), .Names = c("Year", "X_-177_52", "X_-172.5_52", "X_-168_53",
"X_-136.5_58", "X_-132_53", "X_-130.5_52", "X_-127.5_50", "X_-124.5_42",
"X_-124.5_43", "X_-124.5_45", "X_-124.5_49", "X_-123_37", "X_-121.5_35",
"X_-120_33", "X_-120_34", "X_-118.5_33", "X_-117_31", "X_-117_32",
"X_-115.5_28", "X_-73.5_-42", "X_-72_-33", "X_-72_-32", "X_-72_-31",
"X_-72_-30", "X_-70.5_-23", "X_-70.5_-21", "X_-69_44", "X_-67.5_44",
"X_-52.5_47", "X_-10.5_54", "X_-9_55", "X_4.5_60", "X_4.5_61",
"X_12_66", "X_19.5_-35", "X_114_-30", "X_115.5_-32", "X_115.5_-31",
"X_138_-36", "X_139.5_42", "X_144_-41", "X_144_-39", "X_145.5_-43",
"X_145.5_-39", "X_147_-39", "X_148.5_-43", "X_148.5_-42", "X_148.5_-41",
"X_148.5_-40", "X_150_-38", "X_151.5_-35", "X_151.5_-34", "X_172.5_53",
"X_174_53", "X_175.5_-37", "X_175.5_-36", "X_177_52", "X_178.5_51",
"X_180_51", "X_-10.5_52", "X_-10.5_53", "X_-10.5_54", "X_-9_51",
"X_-9_55", "X_-7.5_51", "X_-7.5_56", "X_-6_48", "X_-4.5_47",
"X_-3_46", "X_-1.5_46", "X_4.5_58", "X_4.5_59", "X_4.5_60", "X_4.5_61",
"X_6_57", "X_7.5_57", "X_12_66", "X_15_-27", "X_18_-34", "X_19.5_-35",
"X_114_-34", "X_114_-30", "X_115.5_-35", "X_115.5_-33", "X_115.5_-32",
"X_115.5_-31", "X_133.5_-33", "X_135_-35", "X_136.5_-36", "X_138_-36",
"X_139.5_-37", "X_139.5_42", "X_141_42", "X_142.5_38", "X_144_-41",
"X_144_-40", "X_144_-39", "X_145.5_-44", "X_145.5_-43", "X_145.5_-40",
"X_145.5_-39", "X_147_-44", "X_147_-40", "X_147_-39", "X_148.5_-43",
"X_148.5_-42", "X_148.5_-41", "X_148.5_-40", "X_148.5_-39", "X_150_-38",
"X_150_-37", "X_151.5_-36", "X_151.5_-35", "X_151.5_-34", "X_166.5_55",
"X_172.5_53", "X_174_-41", "X_174_-37", "X_174_-35", "X_174_52",
"X_174_53", "X_175.5_-37", "X_175.5_-36", "X_177_52", "X_178.5_51",
"X_178.5_52", "X_180_51"), row.names = c(NA, -5L), class = c("tbl_df",
"tbl", "data.frame"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment