R/getfisher.r

In haozhu233/ifaR.handtools: A collection of reusable R functions used in clinical research

Defines functions getfisher

Documented in getfisher

#' Get Fisher
#' @author TGT
#' @export

getfisher<-function(aecount){
  fisher.test(matrix(c(aecount, c(75, 74)-aecount), nrow=2, byrow=T))$p.value
}