tosse <- matrix(c(44, 5, 0, 13), nrow = 2, dimnames = list("Tosse antes" = c("Ausente", "Presente"), "Tosse depois" = c("Ausente", "Presente"))) mcnemar.test(tosse)