data(PoohPiglet)
PoohPiglet$Likert.f = factor(PoohPiglet$Likert, ordered = TRUE)
PoohPiglet = PoohPiglet[order(factor(PoohPiglet$Speaker,
levels=c("Pooh", "Tigger", "Piglet"))),]
pairwiseOrdinalTest(x = PoohPiglet$Likert.f,
g = PoohPiglet$Speaker,
method = "fdr")
Run the code above in your browser using DataLab