mcnemar<-read.csv("D:/실습파일 csv/McNemar test.csv")
head(mcnemar)

#McNemar's test
install.packages(“gmodels”)
library(gmodels)

CrossTable(x=mcnemar$before, y=mcnemar$after, mcnemar=TRUE)