# 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