data <- tibble::tribble(~fruit, ~count,
"Apple" , 29,
"Banana" , 24,
"Cucumber" , 22,
"Dragon Fruit" , 19
)
data <- data |>
tidyr::uncount(weights = count) |>
tibble::rowid_to_column("id")
test_chisq_one(data, fruit)
Run the code above in your browser using DataLab