inst/snippet/smoking-ads01.R

smTab <- rbind(NonExperimenter = c(171, 15, 148), 
                  Experimenter = c(89, 10, 132))
colnames(smTab) = c("Never", "Hardly Ever", "Sometimes or a lot")
smTab
chisq.test(smTab)
rpruim/fastR documentation built on Nov. 12, 2023, 12:26 p.m.