## Generate sample data
counts = data.frame(x1 = 1:5, n1 = 30, x2 = 0:4, n2 = 30)
## Score test
stat_st = with(counts, scoreTest(x1, n1, x2, n2))
## NM test
stat_nm = with(counts, nmTest(x1, n1, x2, n2))
## Fisher test
stat_fet = with(counts, feTest(x1, n1, x2, n2))
print(stat_st)
print(stat_nm)
print(stat_fet)Run the code above in your browser using DataLab