inst/snippet/phs.R

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)
rpruim/fastR documentation built on Nov. 12, 2023, 12:26 p.m.