data(BobBelcher)
BobBelcher = BobBelcher[order(BobBelcher$Instructor, BobBelcher$Rater),]
friedman.test(Likert ~ Instructor | Rater,
data = BobBelcher)
BobBelcher = BobBelcher[order(factor(BobBelcher$Instructor,
levels=c("Linda Belcher", "Louise Belcher",
"Tina Belcher", "Bob Belcher",
"Gene Belcher"))),]
pairwiseSignTest(x = BobBelcher$Likert,
g = BobBelcher$Instructor,
method = "fdr")
Run the code above in your browser using DataLab