# R program to illustrate
# Friedman Test
#input the data
y <- matrix(c(1.24,1.50,1.62,
1.71,1.85,2.05,
1.37,2.12,1.68,
2.53,1.87,2.62,
1.23,1.34,1.51,
1.94,2.33,2.86,
1.72,1.43,2.86),
nrow = 7, byrow = TRUE,
dimnames = list(Person= as.character(1:7),Drugs = c("Drug A","Drug B","Drug C")))
#display the sample data
print(y)