# load data
y <- structure(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), .Dim = c(6L,
6L), .Dimnames = list(c("1", "2", "3", "4", "5", "6"), c("A",
"B", "C", "D", "E", "F")))

z <- structure(c(6, 1, 3, 2, 4, 5, 3, 2, 1, 1, 5, 3, 2, 5, 2, 6, 6,
6, 5, 4, 6, 3, 3, 2, 1, 3, 5, 5, 2, 4, 4, 6, 4, 4, 1, 1), .Dim = c(6L,
6L), .Dimnames = list(c("1", "2", "3", "4", "5", "6"), c("A",
"B", "C", "D", "E", "F")))

friedmanTest(y)
> Friedman chi-squared = 23.333, df = 5, p-value = 0.0002915

friedmanTest(z)
> Friedman chi-squared = 3.7143, df = 5, p-value = 0.5912