library(agricolae)
data(friedman)
judge<-friedman[,1]
evaluation<-friedman[,-1]
comparison<-friedman.group(judge,evaluation,alpha=0.05,main="Data of the book of Conover")
#startgraph
bar.group(comparison,density=3,border="red",col="blue",ylim=c(0,45))
#endgraph
Run the code above in your browser using DataLab