powered by
chisq.test
xchisq.test(x, y = NULL, correct = TRUE, p = rep(1/length(x), length(x)), rescale.p = FALSE, simulate.p.value = FALSE, B = 2000)
# Physicians' Health Study data phs <- cbind(c(104,189),c(10933,10845)) rownames(phs) <- c("aspirin","placebo") colnames(phs) <- c("heart attack","no heart attack") phs xchisq.test(phs)
Run the code above in your browser using DataLab