\HeaderA{mcnemar.test}{McNemar's Chi-squared Test for Count Data}{mcnemar.test}
\keyword{htest}{mcnemar.test}
\begin{Description}\relax
Performs McNemar's chi-squared test for symmetry of rows and columns
in a two-dimensional contingency table.
\end{Description}
\begin{Usage}
\begin{verbatim}
mcnemar.test(x, y = NULL, correct = TRUE)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{x}] either a two-dimensional contingency table in matrix form,
or a factor object.
\item[\code{y}] a factor object; ignored if \code{x} is a matrix.
\item[\code{correct}] a logical indicating whether to apply continuity
correction when computing the test statistic.
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
The null is that the probabilities of being classified into cells
\code{[i,j]} and \code{[j,i]} are the same.

If \code{x} is a matrix, it is taken as a two-dimensional contingency
table, and hence its entries should be nonnegative integers.
Otherwise, both \code{x} and \code{y} must be vectors of the same
length.  Incomplete cases are removed, the vectors are coerced into
factor objects, and the contingency table is computed from these.

Continuity correction is only used in the 2-by-2 case if
\code{correct} is \code{TRUE}.
\end{Details}
\begin{Value}
A list with class \code{"htest"} containing the following components:
\begin{ldescription}
\item[\code{statistic}] the value of McNemar's statistic.
\item[\code{parameter}] the degrees of freedom of the approximate
chi-squared distribution of the test statistic.
\item[\code{p.value}] the p-value of the test.
\item[\code{method}] a character string indicating the type of test
performed, and whether continuity correction was used.
\item[\code{data.name}] a character string giving the name(s) of the data.
\end{ldescription}
\end{Value}
\begin{References}\relax
Alan Agresti (1990).
\emph{Categorical data analysis}.
New York: Wiley.
Pages 350--354.
\end{References}
\begin{Examples}
\begin{ExampleCode}
## Agresti (1990), p. 350.
## Presidential Approval Ratings.
##  Approval of the President's performance in office in two surveys,
##  one month apart, for a random sample of 1600 voting-age Americans.
Performance <-
matrix(c(794, 86, 150, 570),
       nrow = 2,
       dimnames = list("1st Survey" = c("Approve", "Disapprove"),
                       "2nd Survey" = c("Approve", "Disapprove")))
Performance
mcnemar.test(Performance)
## => significant change (in fact, drop) in approval ratings
\end{ExampleCode}
\end{Examples}

