### Fisher-Pitman test
data(BrendonSmall)
library(coin)
independence_test(Sodium ~ Instructor, data = BrendonSmall,
teststat = "quadratic")
PT = pairwisePermutationMatrix(Sodium ~ Instructor,
data = BrendonSmall,
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