mat <- matrix(c(25,33,13,17,15, 9,13,10,20,17, 27,17,18,7,12, 22,21,19,11,9, 18,14,15,11,13),nrow=5,byrow=F)
fisher.test(mat,simulate.p.value=T)
mat