# H0 is true
z = runif(80)
ddst.uniform.test(z, compute.p=TRUE)
# known fixed alternative
z = rnorm(80,10,16)
ddst.uniform.test(pnorm(z, 10, 16), compute.p=TRUE)
# H0 is false
z = rbeta(80,4,2)
(t = ddst.uniform.test(z, compute.p=TRUE))
t$p.value
Run the code above in your browser using DataLab