fisher.test(data.frame(A=c(10,100), B=c(111,120)))
chisq.test(data.frame(A=c(10,100), B=c(30,100)))

The Only* Statistical Significance Test You Need