poisons <- c(rep('I',16),rep('II',16),rep('III',16))
treatments <- rep(c(rep("A",4),rep("B",4),rep("C",4),rep("D",4)),3)
values1 <- c(3.1,4.5,4.6,4.3,8.2,11.0,8.8,7.2,4.3,4.5,6.3,7.6,4.5,7.1,6.6,6.2)
values2 <- c(3.6,2.9,4.0,2.3,9.2,6.1,4.9,12.4,4.4,3.5,3.1,4.0,5.6,10.0,7.1,3.8)
values3 <- c(2.2,2.1,1.8,2.3,3.0,3.7,3.8,2.9,2.3,2.5,2.4,2.2,3.0,3.6,3.1,3.3)
values <- c(values1,values2,values3)
data <- data.frame(poisons,treatments,values)