data(BobBelcher)
BobBelcher$Instructor = factor( BobBelcher$Instructor,
levels = c("Linda Belcher", "Louise Belcher",
"Tina Belcher", "Bob Belcher",
"Gene Belcher"))
library(coin)
symmetry_test(Likert ~ Instructor | Rater, data= BobBelcher,
ytrafo = rank_trafo,
teststat = "quadratic")
PT = pairwisePermutationSymmetryMatrix(Likert ~ Instructor | Rater,
data = BobBelcher,
ytrafo = rank_trafo,
teststat = "quadratic",
method = "fdr")
PT
PA = PT$Adjusted
library(multcompView)
multcompLetters(PA,
compare="<",
threshold=0.05,
Letters=letters)
Run the code above in your browser using DataLab