powered by
g.test(y, correct = FALSE, pi.null = NULL)
obs <- c(6022, 2001) g.test(obs, pi.null = c(0.75, 0.25))
Run the code above in your browser using DataLab