w <- wald_test(estimate = 3.0, se = 1.0)
pval(w) # small
pval(complement_test(w)) # large
# Double complement recovers the original
pval(complement_test(complement_test(w))) == pval(w)
Run the code above in your browser using DataLab