antismoking: Anti-Smoking Emotive Communication Data for McNemar Test
Description
Paired nominal data providing the smoking status 62 individuals
before and after emotive video communications showing the danger of smoking.
This a demo dataset for McNemar test.
data(antismoking)
xtabs(~before + after, data = antismoking)
# McNemar test of the change in smoking statusmcnemar.test(table(antismoking$before, antismoking$after))