Você pode considerar um teste de permutação.
median.test <- function(x,y, NREPS=1e4) {
z <- c(x,y)
i <- rep.int(0:1, c(length(x), length(y)))
v <- diff(tapply(z,i,median))
v.rep <- replicate(NREPS, {
diff(tapply(z,sample(i),median))
})
v.rep <- c(v, v.rep)
pmin(mean(v < v.rep), mean(v>v.rep))*2
}
set.seed(123)
n1 <- 100
n2 <- 200
## the two samples
x <- rnorm(n1, mean=1)
y <- rexp(n2, rate=1)
median.test(x,y)
Dá um valor de p bilateral de 0,1112, que é uma prova de quão ineficiente um teste mediano pode ser quando não apelamos a nenhuma tendência distributiva.
Se usarmos MLE, o IC95% da mediana da normal pode ser obtido apenas da média, já que a média é a mediana em uma distribuição normal, ou seja, de 1,00 a 1,18. O IC de 95% da mediana da exponencial pode ser enquadrado como , que pelo método delta é de 0,63 a 0,80. Portanto, o teste de Wald é estatisticamente significativo no nível 0,05, mas o teste mediano não é.log(2)/X¯