The permutation test of the median test .
x<-c(1,20,3,10,5) y<-c(11,8,11,20,10) Truemedian<-median(c(x,y)) \'# calculate observed T Tstatistic<-sum(y
