wants <- c("coin")
has <- wants %in% rownames(installed.packages())
if(any(!has)) install.packages(wants[!has])
mcnemar.test()
set.seed(123)
N <- 20
pre <- rbinom(N, size=1, prob=0.6)
post <- rbinom(N, size=1, prob=0.4)
preFac <- factor(pre, labels=c("no", "yes"))
postFac <- factor(post, labels=c("no", "yes"))
cTab <- table(preFac, postFac)
addmargins(cTab)
postFac
preFac no yes Sum
no 3 5 8
yes 6 6 12
Sum 9 11 20
McNemar's Chi-squared test
data: cTab
McNemar's chi-squared = 0.090909, df = 1, p-value = 0.763
symmetry_test()
from package coin
Approximative General Symmetry Test
data: response by
conditions (preFac, postFac)
stratified by block
chi-squared = 0.090909, p-value = 1
R markdown - markdown - R code - all posts