Heres my code:
#part ii, creating a histogram for the completely randomized design and include the p-value mark. TreatmentS<-c(1.067, 1.948, 0.980, 1.439, 2.53
