"OrchardSprays" <-
structure(list(decrease = c(57, 95, 8, 69, 92, 90, 15, 2, 84, 6, 127, 36, 
51, 2, 69, 71, 87, 72, 5, 39, 22, 16, 72, 4, 130, 4, 114, 9, 20, 24, 10, 
51, 43, 28, 60, 5, 17, 7, 81, 71, 12, 29, 44, 77, 4, 27, 47, 76, 8, 72, 
13, 57, 4, 81, 20, 61, 80, 114, 39, 14, 86, 55, 3, 19), rowpos = c(1, 2, 
3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 
3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 
3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8), colpos = 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, 4, 4, 4, 4, 4, 4, 
4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 
7, 7, 8, 8, 8, 8, 8, 8, 8, 8), treatment = structure(factor(c(4, 5, 2, 
8, 7, 6, 3, 1, 3, 2, 8, 4, 5, 1, 6, 7, 6, 8, 1, 5, 4, 3, 7, 2, 8, 1, 5, 
3, 6, 7, 2, 4, 5, 4, 7, 1, 3, 2, 8, 6, 1, 3, 6, 7, 2, 4, 5, 8, 2, 7, 3, 
6, 1, 8, 4, 5, 7, 6, 4, 2, 8, 5, 1, 3), levels=1:8), .Label = c("A", "B", 
"C", "D", "E", "F", "G", "H"))), 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"),
class = "data.frame")