# NOT RUN {
data(BobBelcher)
BobBelcher$Likert.f = factor(BobBelcher$Likert, ordered = TRUE)
BobBelcher$Instructor = factor( BobBelcher$Instructor,
levels = c("Linda Belcher", "Louise Belcher",
"Tina Belcher", "Bob Belcher",
"Gene Belcher"))
PT = pairwiseOrdinalPairedMatrix(Likert.f ~ Instructor | Rater,
data = BobBelcher,
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