sherds <- structure(list(CS = c(118, 171, 83, 36, 25, 203, 196, 164, 74, 11, 17, 24, 3, 7, 14, 15, 20, 11, 9, 13, 28, 90, 83, 66, 1, 7, 9), Plain = c(555, 302, 156, 51, 50, 964, 389, 199, 85, 292, 247, 163, 39, 34, 40, 18, 219, 110, 45, 20, 34, 79, 67, 45, 75, 67, 45), NA..1 = c(673, 473, 239, 87, 75, 1167, 585, 363, 159, 303, 264, 187, 42, 41, 54, 33, 239, 121, 54, 33, 62, 169, 150, 111, 76, 74, 54), Dark = c(425, 304, 163, 59, 46, 656, 342, 229, 102, 170, 163, 100, 25, 30, 38, 25, 166, 36, 32, 19, 45, 132, 106, 81, 60, 47, 43), Light = c(248, 169, 76, 28, 29, 511, 243, 134, 57, 133, 101, 87, 17, 11, 16, 8, 73, 85, 22, 14, 17, 37, 44, 30, 16, 27, 11), NA..2 = c(673, 473, 239, 87, 75, 1167, 585, 363, 159, 303, 264, 187, 42, 41, 54, 33, 239, 121, 54, 33, 62, 169, 150, 111, 76, 74, 54), Thin = c(157, 126, 67, 24, 19, 183, 100, 64, 27, 125, 116, 62, 18, 30, 32, 22, 183, 85, 47, 29, 49, 147, 111, 81, 49, 51, 38), Thick = c(516, 347, 172, 63, 56, 984, 485, 299, 132, 178, 148, 125, 24, 11, 22, 11, 56, 36, 7, 4, 13, 22, 39, 30, 27, 23, 16), NA..3 = c(673, 473, 239, 87, 75, 1167, 585, 363, 159, 303, 264, 187, 42, 41, 54, 33, 239, 121, 54, 33, 62, 169, 150, 111, 76, 74, 54)), class = "data.frame", row.names = c("Ds73S1", "Ds73S2", "Ds73S3", "Ds73S4", "Ds73S5+", "Ds73NAM", "Ds73NUM", "Ds73NLM", "Ds73NBM", "Ds791", "Ds792", "Ds793", "Ds794+", "Au1131", "Au1132", "Au1133+", "Ds98PZ", "DBUCC", "DBLCC", "DBBCC1", "DBBCC2", "DBBCC3", "DBBCC4", "DBBCC5+", "DS971", "DS972", "DS973+")) a1 <- structure(list(CS = c(118, 171, 83, 36, 25, 203, 196, 164, 74, 11, 17, 24, 3, 7, 14, 15, 20, 11, 9, 13, 28, 90, 83, 66, 1, 7, 9), Plain = c(555, 302, 156, 51, 50, 964, 389, 199, 85, 292, 247, 163, 39, 34, 40, 18, 219, 110, 45, 20, 34, 79, 67, 45, 75, 67, 45), Dark = c(425, 304, 163, 59, 46, 656, 342, 229, 102, 170, 163, 100, 25, 30, 38, 25, 166, 36, 32, 19, 45, 132, 106, 81, 60, 47, 43), Light = c(248, 169, 76, 28, 29, 511, 243, 134, 57, 133, 101, 87, 17, 11, 16, 8, 73, 85, 22, 14, 17, 37, 44, 30, 16, 27, 11), Thin = c(157, 126, 67, 24, 19, 183, 100, 64, 27, 125, 116, 62, 18, 30, 32, 22, 183, 85, 47, 29, 49, 147, 111, 81, 49, 51, 38), Thick = c(516, 347, 172, 63, 56, 984, 485, 299, 132, 178, 148, 125, 24, 11, 22, 11, 56, 36, 7, 4, 13, 22, 39, 30, 27, 23, 16)), class = "data.frame", row.names = c("Ds73S1", "Ds73S2", "Ds73S3", "Ds73S4", "Ds73S5+", "Ds73NAM", "Ds73NUM", "Ds73NLM", "Ds73NBM", "Ds791", "Ds792", "Ds793", "Ds794+", "Au1131", "Au1132", "Au1133+", "Ds98PZ", "DBUCC", "DBLCC", "DBBCC1", "DBBCC2", "DBBCC3", "DBBCC4", "DBBCC5+", "DS971", "DS972", "DS973+")) a2 <- structure(list(CS = c(0.175334323922734, 0.361522198731501, 0.347280334728033, 0.413793103448276, 0.333333333333333, 0.17395029991431, 0.335042735042735, 0.451790633608815, 0.465408805031447, 0.0363036303630363, 0.0643939393939394, 0.128342245989305, 0.0714285714285714, 0.170731707317073, 0.259259259259259, 0.454545454545455, 0.0836820083682008, 0.0909090909090909, 0.166666666666667, 0.393939393939394, 0.451612903225806, 0.532544378698225, 0.553333333333333, 0.594594594594595, 0.0131578947368421, 0.0945945945945946, 0.166666666666667 ), Plain = c(0.824665676077266, 0.638477801268499, 0.652719665271967, 0.586206896551724, 0.666666666666667, 0.82604970008569, 0.664957264957265, 0.548209366391185, 0.534591194968553, 0.963696369636964, 0.935606060606061, 0.871657754010695, 0.928571428571429, 0.829268292682927, 0.740740740740741, 0.545454545454545, 0.916317991631799, 0.909090909090909, 0.833333333333333, 0.606060606060606, 0.548387096774194, 0.467455621301775, 0.446666666666667, 0.405405405405405, 0.986842105263158, 0.905405405405405, 0.833333333333333 ), Dark = c(0.63150074294205, 0.642706131078224, 0.682008368200837, 0.67816091954023, 0.613333333333333, 0.562125107112254, 0.584615384615385, 0.630853994490358, 0.641509433962264, 0.561056105610561, 0.617424242424242, 0.53475935828877, 0.595238095238095, 0.731707317073171, 0.703703703703704, 0.757575757575758, 0.694560669456067, 0.297520661157025, 0.592592592592593, 0.575757575757576, 0.725806451612903, 0.781065088757396, 0.706666666666667, 0.72972972972973, 0.789473684210526, 0.635135135135135, 0.796296296296296 ), Light = c(0.36849925705795, 0.357293868921776, 0.317991631799163, 0.32183908045977, 0.386666666666667, 0.437874892887746, 0.415384615384615, 0.369146005509642, 0.358490566037736, 0.438943894389439, 0.382575757575758, 0.46524064171123, 0.404761904761905, 0.268292682926829, 0.296296296296296, 0.242424242424242, 0.305439330543933, 0.702479338842975, 0.407407407407407, 0.424242424242424, 0.274193548387097, 0.218934911242604, 0.293333333333333, 0.27027027027027, 0.210526315789474, 0.364864864864865, 0.203703703703704 ), Thin = c(0.233283803863299, 0.266384778012685, 0.280334728033473, 0.275862068965517, 0.253333333333333, 0.15681233933162, 0.170940170940171, 0.176308539944904, 0.169811320754717, 0.412541254125413, 0.439393939393939, 0.331550802139037, 0.428571428571429, 0.731707317073171, 0.592592592592593, 0.666666666666667, 0.765690376569038, 0.702479338842975, 0.87037037037037, 0.878787878787879, 0.790322580645161, 0.869822485207101, 0.74, 0.72972972972973, 0.644736842105263, 0.689189189189189, 0.703703703703704 ), Thick = c(0.766716196136701, 0.733615221987315, 0.719665271966527, 0.724137931034483, 0.746666666666667, 0.84318766066838, 0.829059829059829, 0.823691460055096, 0.830188679245283, 0.587458745874587, 0.560606060606061, 0.668449197860963, 0.571428571428571, 0.268292682926829, 0.407407407407407, 0.333333333333333, 0.234309623430962, 0.297520661157025, 0.12962962962963, 0.121212121212121, 0.209677419354839, 0.130177514792899, 0.26, 0.27027027027027, 0.355263157894737, 0.310810810810811, 0.296296296296296 )), row.names = c("Ds73S1", "Ds73S2", "Ds73S3", "Ds73S4", "Ds73S5+", "Ds73NAM", "Ds73NUM", "Ds73NLM", "Ds73NBM", "Ds791", "Ds792", "Ds793", "Ds794+", "Au1131", "Au1132", "Au1133+", "Ds98PZ", "DBUCC", "DBLCC", "DBBCC1", "DBBCC2", "DBBCC3", "DBBCC4", "DBBCC5+", "DS971", "DS972", "DS973+"), class = "data.frame")