set.seed(1630)
response <- factor(c(sample(1:3,10,replace=TRUE),
sample(2:5,10,replace=TRUE),
sample(3:6,10,replace=TRUE)),levels=c("1","2","3","4","5","6"),ordered=TRUE)
fact <- gl(3,10,labels=LETTERS[1:3])
block <- gl(10,1,30,labels=letters[1:10])
friedman.rating.test(response~fact|block)
wilcox.paired.rating.multcomp(response~fact|block)
Run the code above in your browser using DataLab