y1 <- c(60, 30, 10)
y2 <- c(50, 40, 10)
door_test(y1 = y1, y2 = y2)
## Hypothesis test for DOOR probability
## data: y1 and y2
## WMW statistic = 1.2372, p-value = 0.216
## alternative hypothesis: true is not equal to 0.5
## sample estimates:
## DOOR probability
## 0.545
Run the code above in your browser using DataLab