test_sites.R

sites_a <- structure(list(site_id = c(1L, 3L, 6L, 9L, 10L, 11L, 12L, 13L, 
15L, 17L, 18L, 20L, 25L, 26L, 27L, 28L, 29L, 31L, 32L, 35L, 36L, 
37L, 39L, 40L, 42L, 44L, 47L, 52L, 54L, 55L, 56L, 57L, 58L, 59L, 
60L, 63L, 64L, 65L, 70L, 71L, 72L, 73L, 75L, 76L, 77L, 78L, 79L, 
80L, 83L, 84L, 85L, 87L, 90L, 91L, 92L, 93L, 94L, 96L, 97L, 98L, 
99L, 100L, 101L, 102L, 103L, 104L, 105L, 106L, 107L, 108L, 109L, 
110L, 111L, 112L, 113L, 114L, 115L, 116L, 117L, 119L, 120L, 121L, 
122L, 123L, 124L, 125L, 126L, 128L, 129L, 130L, 131L, 132L, 133L, 
135L, 136L, 137L, 138L, 139L, 140L, 141L), sitename = c("Aliartos ", 
"Bologna ", "Brookings SD", "Ithaca NE", "Shaanxi ", "South Shore SD", 
"Aurora SD", "Mandan 1 ND", "College station TX", "Rock Springs PA", 
"South Shore SD", "Jackson TN", "Pierre SD", "Arlington WI", 
"Bristol SD", "Spooner WI", "Chickasha OK", "Arlington WI", "Chariton IA", 
"Shorter AL", "Ames IA", "Beeville TX", "Knoxville TN", "Trisaia ", 
"Beeville TX", "Santa Rosa La Pampa", "Shorter AL", "Chickasha OK", 
"Montreal QC", "Mead NE", "Morgantown WV", "Simpson IL", "Watkinsville GA", 
"Athens GA", "Stillwater OK", "Arlington WI", "Perkins OK", "Brookings SD", 
"Stephenville TX", "Dallas TX", "Temple TX", "Haskell OK", "West Lafayette IN", 
"Urbana IL", "Shabbona IL", "Mandan  ND", "Dickinson ND", "Clinton LA", 
"Hope AK", "Ligonier PA", "Raleigh NC", "Princeton KY", "Morgantown WV", 
"Orange VA", "Desoto IL", "DuQuoin IL", "Desoto IL", "Halsey NE", 
"Columbus OH", "Columbus OH", "Konza KS", "Houston TX", "Woodward OK", 
"Colchester VT", "Kristianstad ", "Foulum ", "Harpenden ", "Sttutgart ", 
"Lisbon ", "Catania Sicily", "Nantahala NF NC", "New Franklin MO", 
"Innertavle ", "Bodarna NA", "Bulltofta ", "Rydsgard ", "Sangletorp ", 
"Hisar ", "Zwijnaarde ", "Rhinelander WI", "Rhinelander WI", 
"Quebec ", "Chalk River Ontario", "Baoying County ", "Washington, DC MD", 
"Paimio ", "Boom, Province of Antwerp ", "Bristol ", "Mepal ", 
"Alice Holt ", "Domaninek ", "Olympia WA", "Sforzesca ", "Frascarolo NA", 
"Alperolo NA", "Calignano NA", "Canale Monterano ", "Albuzzano NA", 
"Linarolo NA", "Torbole NA"), lat = c(38.37, 44.42, 44.3, 41.25, 
34.3, 45, 44.28, 46.8, 30.6, 40.77, 45.1, 35.37, 44.37, 43.33, 
45.33, 45.82, 35.04, 43.34, 41.02, 32.4, 42.03, 28.45, 35.88, 
40.15, 28.45, -36.77, 32.42, 35.02, 45.47, 41.22, 39.63, 37.45, 
33.86, 33.95, 36.12, 43.33, 35.98, 44.31, 32.22, 32.82, 31.05, 
35.73, 40.45, 40.08, 41.85, 46.8, 46.88, 30.85, 60.93, 40.24, 
35.72, 37.1, 39.63, 38.22, 38.13, 37.97, 38.13, 41.86, 40.01, 
40.01, 39.01, 29.72, 36.44, 44.5, 56, 56.5, 51.8, 48.67, 38.72, 
37.51, 35.75, 39.02, 63.8, 60, 55.98, 55.52, 55.55, 29.17, 51.03, 
45.64, 45.64, 45.08, 46, 33.13, 38.9, 60.5, 51.08, 51.43, 52.33, 
51.12, 49.53, 46.99, 45.28, 45.05, 45.18, 45.21, 42.31, 45.19, 
45.16, 45.87), lon = c(23.17, 11.47, -96.78, -96.67, 109.1, -97, 
-96.68, -100.92, -96.35, -77.96, -96.92, -88.81, -100.35, -89.37, 
-97.73, -91.89, -97.95, -89.38, -93.31, -85.94, -93.63, -97.7, 
-83.95, 16.63, -97.7, -64.27, -85.9, -97.9, -73.75, -96.48, -79.95, 
-88.67, -83.41, -83.53, -97.05, -89.38, -97.03, -97, -98.2, -96.77, 
-97.35, -95.63, -86.92, -88.23, -88.85, -100.92, -102.78, -91.01, 
-149.64, -79.24, -78.67, -87.82, -79.95, -78.12, -90.55, -89.29, 
-90.55, -100.37, -83.03, -83.03, -96.58, -95.4, -99.37, -72.85, 
14, 9.58, -0.35, 9, -9.22, 15.09, -79.01, -92.77, 20.4, 15.66, 
13.06, 13.58, 13.49, 75.77, 3.72, -89.41, -89.41, -74.33, -77.42, 
119.32, -77.04, 22.75, 4.37, -2.65, 0.12, -0.83, 16.25, -122.74, 
8.88, 8.68, 9.26, 9.28, 12.08, 9.27, 9.27, 10.87)), .Names = c("site_id", 
"sitename", "lat", "lon"), row.names = c(NA, -100L), class = "data.frame")

sites_b <- structure(list(lat = c(35.01, 28.27, 41.15, 39.25, 41.13, 36.07, 
40.58, 45.49, 43.2, 37.45, 45.28, 48.44, 44.41666667, 40.15, 
38.36666667, -36.76666667, 38.21666667, 35.71666667, 37.61666667, 
37.18333333, 37.18333333, 35.88333333, 33.86, 33.95, 32.4, 40.45, 
37.1, 40.08, 35.61666667, 41.85, 30.85, 33.66666667, 42.03, 35.73333333, 
30.6, 44.1, 41.23, 41.23, 45, 45, 44, 35.98, 32.96666667, 31.11, 
28.45, 35.04, 32.21666667, 44, 46.8, 46.8, 43, 46.88333333, 36.85, 
59.617, 45.083, 59.483, 51.47, 54.43, 49.15, 53.73, 48.733, 49.08, 
42.792, 44.08), lon = c(-97.54, -97.42, -96.4, -96.35, -96.29, 
-96.05, -93.26, -91.54, -89.23, -88.67, -73.45, 8.56, 11.46666667, 
16.63333333, 23.16666667, -64.26666667, -78.11666667, -78.66666667, 
-79.95, -80.41666667, -80.41666667, -82.05, -83.41, -83.53, -85.93, 
-86.92, -87.81666667, -88.23, -88.83333333, -88.85, -90.05, -93.58333333, 
-93.63, -95.63333333, -96.35, -96.41, -96.49, -96.49, -97, -97, 
-97, -97.03, -97.26666667, -97.38, -97.7, -97.95, -98.2, -100, 
-100.9166667, -100.9166667, -101, -102.8, -109.3166667, 16.667, 
-74.333, 16.067, 22.07, 16.4, 15, 18.89, 8.933, 12.15, -76.125, 
-93.51), sitename = structure(c(17L, 9L, 26L, 32L, 33L, 60L, 
15L, 57L, 6L, 56L, 36L, 24L, 10L, 64L, 3L, 51L, 68L, 47L, 39L, 
66L, 67L, 63L, 69L, 7L, 53L, 70L, 46L, 14L, 62L, 40L, 18L, 25L, 
4L, 23L, 19L, 37L, 34L, 33L, 8L, 55L, 12L, 44L, 20L, 61L, 9L, 
16L, 59L, 45L, 30L, 31L, 6L, 21L, 52L, 13L, 58L, 28L, 43L, 22L, 
54L, 42L, 24L, 2L, 41L, 35L), .Label = c("", "ABB", "Aliartos", 
"Ames, IA", "Arlington WI and Brookings, SD", "Arlington, WI", 
"Athens, GA", "Aurora, SD", "Beeville, TX", "Bologna", "Bristol,  SD and South Shore, SD", 
"Brookings, SD", "Brunnby", "Central, IL", "Chariton, IA", "Chickasha, OK", 
"Chickasha, Oklahoma", "Clinton, Louisiana", "College station, TX", 
"Dallas, TX", "Dickinson ND", "Grabow", "Haskell, Oklahoma", 
"Hohenheim", "Hope, Arkansas", "Ithaca, Nebraska", "Knoxville, TN", 
"Koping", "Ligonier; western PA in Westmorland county", "Mandan 1, ND", 
"Mandan 2, ND", "Manhattan, KS", "Mead, NE", "Mead, Nebraska", 
"Minnesota", "Montreal, QC", "Moody County, South Dakota", "Morgantown, W. Va", 
"Morgantown, WV", "North, IL", "NY", "Obory", "Osiney", "Perkins, OK", 
"Pierre, SD", "Princeton, KY", "Raleigh, NC", "Rock springs PA", 
"Rock springs, PA", "Rothamsted Farm", "Santa Rosa, La Pampa", 
"Shanxi", "Shorter, AL", "South Bohemia", "South Shore, SD", 
"South, IL", "Spooner, WI", "St Lawrance", "Stephenville, TX", 
"Stillwater, OK", "Temple, TX", "TN, Jackson", "TN, Knoxville", 
"Trisaia", "Unit of the E. V. Smith Research Center in east central Alabama", 
"VA, Blacksburg A", "VA, Blacksburg B", "VA, Orange", "Watkinsville, GA", 
"West Lafayette, IN"), class = "factor")), .Names = c("lat", 
"lon", "sitename"), row.names = c(NA, -64L), class = "data.frame")