# NOT RUN {
library(agricolae)
# example 1
data(corn)
comparison<-with(corn,Median.test(observation,method))
comparison
# example 2
trt<-c(rep(1,9),rep(2,10),rep(3,7),rep(4,8))
y<-c(83,91,94,89,89,96,91,92,90,91,90,81,83,84,83,88,91,89,84,101,100,91,93,
96,95,94,78,82,81,77,79,81,80,81)
comparison<-Median.test(y,trt)
# }
Run the code above in your browser using DataLab