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/fastR2 documentation built on Nov. 11, 2023, 7:32 a.m.