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"))),]
pairwiseOrdinalPairedTest(x = BobBelcher$Likert.f,
g = BobBelcher$Instructor,
b = BobBelcher$Rater,
threshold="equidistant",
method = "fdr")
Run the code above in your browser using DataLab