clem <- data.frame(
id = 1:74,
no = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9,
1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9,
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9),
brand = c("organic", "organic", "organic", "organic", "organic", "organic",
"organic", "organic", "organic", "organic", "organic", "organic",
"organic", "organic", "organic", "organic", "organic", "organic",
"organic", "organic", "organic", "organic", "organic", "organic",
"organic", "organic", "organic", "organic", "standard", "standard",
"standard", "standard", "standard", "standard", "standard", "standard",
"standard", "standard", "standard", "standard", "standard", "standard",
"standard", "standard", "standard", "standard", "standard", "standard",
"standard", "standard", "standard", "standard", "standard", "standard",
"standard", "organic", "organic", "organic", "organic", "organic",
"organic", "organic", "organic", "organic", "organic", "standard",
"standard", "standard", "standard", "standard", "standard", "standard",
"standard", "standard"),
sample = c("S1", "S1", "S1", "S1", "S1", "S1", "S1", "S1", "S1", "S2", "S2", "S2",
"S2", "S2", "S2", "S2", "S2", "S2", "S2", "S3", "S3", "S3", "S3", "S3",
"S3", "S3", "S3", "S3", "I1", "I1", "I1", "I1", "I1", "I1", "I1", "I1",
"I1", "I2", "I2", "I2", "I2", "I2", "I2", "I2", "I2", "I2", "I3", "I3",
"I3", "I3", "I3", "I3", "I3", "I3", "I3", "S4", "S4", "S4", "S4", "S4",
"S4", "S4", "S4", "S4", "S4", "I4", "I4", "I4", "I4", "I4", "I4", "I4",
"I4", "I4"),
weight = c(85, 90, 75, 86, 87, 72, 81, 94, 83, 89, 69, 71, 67, 83, 66, 76, 88, 75,
77, 82, 84, 82, 81, 100, 70, 73, 95, 73, 114, 110, 153, 121, 108, 100,
107, 112, 117, 103, 115, 109, 124, 111, 116, 121, 114, 116, 105, 119,
110, 106, 123, 119, 113, 114, 112, 71, 73, 70, 66, 81, 71, 75, 87, 69,
78, 105, 134, 126, 119, 103, 105, 109, 121, 106)
)