n <- c(50, 75, 100)
values <- LETTERS[1:4]
group.names <- paste0("group_", 1:3)
probs <- matrix(data = c(0.25, 0.25, 0.25, 0.25, 0.4, 0.3,
0.2, 0.1, 0.2, 0.4, 0.2, 0.2),
nrow = length(n), byrow = TRUE)
study.chisq.ind <- simstudy.chisq.test.ind(n = c(30, 35, 40),
values = LETTERS[1:4], probs = probs, num.experiments = 2,
conf.level = 0.95, correct = TRUE, the.quantiles = c(0.025, 0.975),
experiment.name = "exp_id", group.name = "treatment_group",
group.values = paste0("group_", 1:3), value.name = "category",
seed = 77)
Run the code above in your browser using DataLab