Skip to contents

Fisher's Test

Usage

test_fisher(data, x, y)

Arguments

data

data

x

x

y

y

Value

results

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)
#> # A tibble: 1 × 2
#>   p_value odds_ratio
#>     <dbl>      <dbl>
#> 1  0.0557       9.76