# McNemar’s Test without continuity correction
X=matrix(c(212,144,256,707),nrow=2,byrow=T)
X 
mcnemar.test(X,correct=F) 

# To determine the critical value of the test
alpha=0.05 
CV=qchisq(1-alpha,1)
CV

# McNemar’s Test with continuity correction
X=matrix(c(212,144,256,707),nrow=2,byrow=T) 
X
mcnemar.test(X,correct=T) 

# To determine the critical value of the test
alpha=0.05
CV=qchisq(1-alpha,1)
CV

# McNemar's Extended Test
data=matrix(c(173,20,7,15,51,2,5,3,24),nrow=3,byrow=T)
data
mcnemar.test(data,correct=F)