# Yield
library(agricolae)
data(huasahuasi)
attach(huasahuasi)
modelo<-strip.plot(Block, Clon, Treat, yield)
comparison<-LSD.test(yield,Clon,modelo$gl.a,modelo$Ea)
comparison<-LSD.test(yield,Treat,modelo$gl.b,modelo$Eb)
Run the code above in your browser using DataLab