my.fisher function

fisher exact test to get p value if any cell in propotion table of expect value less than 5