data(siegelp179)
attach(siegelp179)
friedman.test(score,treatment,block)
friedmanmc(score,treatment,block)
friedmanmc(score,treatment,block,alpha=0.01)
mymatrix<-matrix(score,nc=3)
friedman.test(mymatrix)
friedmanmc(mymatrix)
detach(siegelp179)
Run the code above in your browser using DataLab