R/test_fisher.R

In uxr: User Experience Research

#' Fisher's Test
#'
#' @param data data
#' @param x x
#' @param y y
#' @importFrom dplyr summarise
#' @importFrom stats fisher.test
#' @return results
#' @export
#' @examples
#' design = c("A","B")
#' complete = c(11, 5)
#' incomplete = c(1, 5)
#' data <- data.frame(design, complete, incomplete)
#' data <- data |> tidyr::pivot_longer(!design, names_to = "rate", values_to = "n") |>
#'   tidyr::uncount(n)
#' test_fisher(data, design, rate)


test_fisher <- function(data, x, y) {

  table <- summarise(data, tab = list(table({{x}}, {{y}})))$tab[[1]]

  result <- fisher.test(table)

  as_tibble(data.frame(p_value = result$p.value,
             odds_ratio = unname(result$estimate)
             ))
}