data(PoohPiglet)
PoohPiglet = PoohPiglet[order(factor(PoohPiglet$Speaker,
levels=c("Pooh", "Tigger", "Piglet"))),]
PT = pairwisePermutationMatrix(x = PoohPiglet$Likert,
g = PoohPiglet$Speaker,
exact = NULL,
method = "fdr")$Adjusted
PT
library(multcompView)
multcompLetters(PT,
compare="<",
threshold=0.05,
Letters=letters)
Run the code above in your browser using DataLab