R script to perform Fisher exact test