data(BobBelcher)
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"))),]
PT = pairwiseSignMatrix(x = BobBelcher$Likert,
g = BobBelcher$Instructor,
method = "fdr")$Adjusted
PT
library(multcompView)
multcompLetters(PT,
compare="<",
threshold=0.05,
Letters=letters)
Run the code above in your browser using DataLab