# NOT RUN {
Performance <-
matrix(c(794, 86, 150, 570),
nrow = 2,
dimnames = list("1st Survey" = c("Approve", "Disapprove"),
"2nd Survey" = c("Approve", "Disapprove")))
showMcNemarTest(Performance)
# }
Run the code above in your browser using DataLab