powered by
Fisher1sided(ctable, side = "great")
ctable <- c(4,5,1,20) Fisher1sided(ctable)
Run the code above in your browser using DataLab