data(BobBelcher)
BobBelcher$Likert.f = factor(BobBelcher$Likert, ordered = TRUE)
BobBelcher = BobBelcher[order(factor(BobBelcher$Instructor,
levels=c("Linda Belcher", "Louise Belcher",
"Tina Belcher", "Bob Belcher",
"Gene Belcher"))),]
PT = pairwiseOrdinalPairedMatrix(x = BobBelcher$Likert.f,
g = BobBelcher$Instructor,
b = BobBelcher$Rater,
threshold="equidistant",
method = "fdr")$Adjusted
PT
library(multcompView)
multcompLetters(PT,
compare="<",
threshold=0.05,
Letters=letters)
Run the code above in your browser using DataLab