"carbon" <-
structure(list(Monoxide = c(0.1059999987, 0.1270000041, 0.1319999993, 
0.1049999967, 0.1169999987, 0.1089999974, 0.1070000008, 0.1089999974, 
0.1220000014, 0.1190000027, 0.1150000021, 0.1199999973, 0.1169999987, 
0.1350000054, 0.1180000007, 0.1420000046, 0.1190000027, 0.1099999994, 
0.1059999987, 0.1080000028, 0.1049999967, 0.1209999993, 0.1089999974, 
0.1340000033), Site = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 
2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3)), .Names = c("Monoxide", "Site"
), 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"), class = "data.frame")