simdat.chisq.gf <- sim.chisq.gf(n = 100, values = LETTERS[1:4],
prob = c(0.4, 0.3, 0.2, 0.1), num.experiments = 2, experiment.name =
"experiment_id", value.name = "classification", seed = 31)
test.statistics.chisq.test.gf <- sim.chisq.test.gf(simdat.chisq.gf =
simdat.chisq.gf, hypothesized.probs = c(0.25, 0.3, 0.15, 0.3),
correct = FALSE, experiment.name = "experiment_id",
value.name = "classification")
analysis.chisq.gf <-
analyze.simstudy.chisq.test.gf(test.statistics.chisq.test.gf =
test.statistics.chisq.test.gf, conf.level = 0.95,
the.quantiles = c(0.25, 0.75))
Run the code above in your browser using DataLab