inst/snippet/smoking-bbs01.R

smTab2 <- rbind(NonExperimenter = c(34, 4, 296), 
                   Experimenter = c(15, 3, 213))
colnames(smTab2) <- c("Never", "Hardly ever", "Sometimes or a lot")
smTab2
chisq.test(smTab2)
rpruim/fastR documentation built on Nov. 12, 2023, 12:26 p.m.