Wilcoxon_test.R

# Comparación de dos medias, suma de rangos de Wilcoxon
# Prueba no paramétrica
set.seed(10)
x1 <- rnorm(100,10)
x2 <- rnorm(100,10.5)

test <- wilcox.test(x1,x2)

print(test)

## 
##  Wilcoxon rank sum test with continuity correction
## 
## data:  x1 and x2
## W = 3442, p-value = 0.0001415
## alternative hypothesis: true location shift is not equal to 0