# NOT RUN {
 ## Sachs, 1997, p. 675
 ## Six persons (block) received six different diuretics
 ## (A to F, treatment).
 ## The responses are the Na-concentration (mval)
 ## in the urine measured 2 hours after each treatment.
 ## Assume A is the control.
 y <- matrix(c(
 3.88, 5.64, 5.76, 4.25, 5.91, 4.33, 30.58, 30.14, 16.92,
 23.19, 26.74, 10.91, 25.24, 33.52, 25.45, 18.85, 20.45, 
 26.67, 4.44, 7.94, 4.04, 4.4, 4.23, 4.36, 29.41, 30.72,
 32.92, 28.23, 23.35, 12, 38.87, 33.12, 39.15, 28.06, 38.23,
 26.65),nrow=6, ncol=6, 
 dimnames=list(1:6, LETTERS[1:6]))
 ## Global Friedman test
 friedmanTest(y)
 ## Demsar's many-one test
 frdManyOneDemsarTest(y=y, p.adjust = "bonferroni")
 ## Exact many-one test
 frdManyOneExactTest(y=y, p.adjust = "bonferroni")
 ## Nemenyi's many-one test
 frdManyOneNemenyiTest(y=y)
 
# }
Run the code above in your browser using DataLab