inst/snippet/smoking-ads.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)

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 2, 2019, 5:53 p.m.