sage.test(c(0,5,10),c(0,30,50),n1=10000,n2=15000)
# Exact equivalents
fisher.test(matrix(c(0,0,10000-0,15000-0),2,2))$p.value
fisher.test(matrix(c(5,30,10000-5,15000-30),2,2))$p.value
fisher.test(matrix(c(10,50,10000-10,15000-50),2,2))$p.value
Run the code above in your browser using DataLab