### Fisher-Pitman test
data(BrendonSmall)
library(coin)
independence_test(Sodium ~ Instructor, data = BrendonSmall,
teststat="quadratic")
PT = pairwisePermutationTest(Sodium ~ Instructor,
data = BrendonSmall,
teststat="quadratic",
method = "fdr")
PT
cldList(comparison = PT$Comparison,
p.value = PT$p.adjust,
threshold = 0.05)
Run the code above in your browser using DataLab