# NOT RUN {
library(agricolae)
data(grass)
out<-with(grass,friedman(judge,trt, evaluation,alpha=0.05, group=TRUE,console=TRUE,
main="Data of the book of Conover"))
#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