# NOT RUN {
data(pot)
mma.test(pot[,"obs"], pot[,"type"], tail="left")$N
## Mudholkar et al. (1993) test (left-tailed)
##
## data: pot[, "obs"]
## Test Statistic (N) = 9.9429, p-value = 1.028e-12
# }
Run the code above in your browser using DataLab