### R code from vignette source 'exactMcNemar.Rnw'

###################################################
### code chunk number 1: exactMcNemar.Rnw:24-25
###################################################
library(exact2x2)


###################################################
### code chunk number 2: exactMcNemar.Rnw:100-102
###################################################
x<-matrix(c(21,9,2,12),2,2)
mcnemar.test(x)


###################################################
### code chunk number 3: exactMcNemar.Rnw:105-106
###################################################
mcnemar.test(x,correct=FALSE)


###################################################
### code chunk number 4: exactMcNemar.Rnw:137-138
###################################################
mcnemar.exact(x)


###################################################
### code chunk number 5: exactMcNemar.Rnw:169-170
###################################################
powerPaired2x2(pb=.5,pc=.3,npairs=100)