x <- exp(-rexp(1000)) # uniform
y <- exp(-rexp(1000,0.8)) # skewed towards 0
W <- wilcoxon(p=c(x,y),snps.in=1:1000)
p.perm <- matrix(sample(c(x,y),replace=TRUE,size=10000),ncol=5)
Wstar <- wilcoxon(p=p.perm,snps.in=1:1000)
Z.value(W=W, Wstar=Wstar, n.in=1000, n.out=1000)
Run the code above in your browser using DataLab