library(agricolae)
data(grass)
attach(grass)
out<-friedman(judge,trt, evaluation,alpha=0.05, group=TRUE,console=TRUE,
main="Data of the book of Conover")
detach(grass)
#startgraph
bar.group(out$groups,density=3,border="red",col="blue",ylim=c(0,45))
#endgraph
Run the code above in your browser using DataLab