"smokyph" <-
structure(list(waterph = c(7.909999847, 7.139999866, 6.809999943,
6.96999979, 7.210000038, 6.940000057, 6.590000153, 6.940000057,
6.940000057, 8.430000305, 7.090000153, 7.059999943, 7.170000076,
6.869999886, 7.099999905, 7.079999924, 6.699999809, 7.269999981,
7.03000021, 6.829999924, 6.940000057, 7, 6.900000095, 6.800000191,
7.230000019, 6.579999924, 6.929999828, 6.800000191, 6.630000114,
8.020000458, 8.180000305, 6.579999924, 7.239999771, 6.889999866,
7.440000057, 6.769999981, 6.75, 7.150000095, 6.909999847, 7.059999943,
7.230000019, 7.019999981, 7.079999924, 6.380000114, 7.039999962,
6.829999924, 6.78000021, 6.71999979, 7.429999828, 7.079999924,
6.960000038, 7.03000021, 8.279999733, 7.03000021, 8.380000114,
7.03000021, 6.630000114, 6.96999979, 6.860000134, 6.869999886,
7.389999866, 7.849999905, 7.670000076, 8.199999809, 7.96999979,
7.340000153, 7.360000134, 7.230000019, 6.920000076, 7.079999924,
7.320000172, 7.400000095, 6.949999809, 7.079999924, 7.199999809
), elev = c(0.2440000027, 0.375, 0.5669999719, 0.5120000243,
0.4079999924, 0.5120000243, 0.5059999824, 0.4880000055, 0.4880000055,
0.2319999933, 0.5669999719, 0.5609999895, 0.4480000138, 0.5609999895,
0.4880000055, 0.6100000143, 1.036000013, 0.503000021, 0.4569999874,
0.4359999895, 0.5429999828, 0.6069999933, 1.029999971, 0.9599999785,
0.6100000143, 1.297999978, 0.4329999983, 0.5789999962, 0.7319999933,
0.3050000072, 0.2800000012, 0.4300000072, 0.4420000017, 0.5109999776,
0.6830000281, 0.8379999995, 0.90200001, 0.5960000157, 0.4850000143,
0.5490000248, 0.8529999852, 0.7319999933, 0.7799999714, 0.5490000248,
0.4359999895, 0.8899999857, 0.8529999852, 0.9509999752, 0.8529999852,
0.8840000033, 0.8289999962, 0.9359999895, 0.4149999917, 0.6710000038,
0.4269999862, 0.3289999962, 1.008999944, 0.65200001, 0.6890000105,
0.7319999933, 0.6610000134, 0.621999979, 0.5970000029, 0.5, 0.621999979,
0.6710000038, 0.9139999747, 0.2680000067, 0.6610000134, 0.6460000277,
0.5490000248, 0.4269999862, 0.4269999862, 0.5519999862, 0.4449999928
), code = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1,
0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0,
0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1,
1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0)), .Names = c("waterph",
"elev", "code"), row.names = c("1", "2", "3", "4", "5", "6",
"7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17",
"18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28",
"29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39",
"40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50",
"51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61",
"62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72",
"73", "74", "75"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.