library(agricolae)
data(sensorial)
attach(sensorial)
comparison<-durbin.group(judge,trt,texture,k=5,r=3,alpha=0.01,main="Clay")
#startgraph
bar.group(comparison,horiz=TRUE,xlim=c(0,20),density=4)
#endgraph
Run the code above in your browser using DataLab