R: Lehmacher's Test for Marginal Homogenity

LehmacherTest {DescTools} | R Documentation

## Lehmacher's Test for Marginal Homogenity

### Description

Performs Lehmacher's chi-squared test for marginal homogenity in a symmetric two-dimensional contingency table.

### Usage

    LehmacherTest(x, y = NULL)

    ## S3 method for class 'mtest'
    print(x, digits = 4L, ...)

### Arguments

`x` | either a two-dimensional contingency table in matrix form, or a factor object.
`y` | a factor object; ignored if x is a matrix.
`digits` | a non-null value for digits specifies the minimum number of significant digits to be printed in values. See details in `print.default`.
`...` | further arguments to be passed to or from other methods. They are ignored in this function.

### Details

The null is that the probabilities of being classified into cells [i,j] and [j,i] are the same.

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

### Value

A list with class `"mtest"` containing the following components:

`statistic` | a vector with the value of the test statistics.
`parameter` | the degrees of freedom, which is always 1 in LehmacherTest.
`p.value` | a vector with the p-values of the single tests.
`p.value.corr` | a vector with the "hochberg" adjusted p-values of the single tests. (See `p.adjust`)
`method` | a character string indicating what type of test was performed.
`data.name` | a character string giving the name of the data.

### Author(s)

Andri Signorell <andri@signorell.net>

### References

Lehmacher, W. (1980) Simultaneous sign tests for marginal homogeneity of square contingency tables Biometrical Journal, Volume 22, Issue 8, pages 795-798

### See Also

`mcnemar.test` (resp. BowkerTest for a CxC-matrix), `StuartMaxwellTest`, `WoolfTest`

### Examples

    x <- matrix(c(400,40,20,10,
                  50,300,60,20,
                  10,40,120,5,
                  5,90,50,80), nrow=4, byrow=TRUE)

    LehmacherTest(x)

[Package DescTools version 0.99.26 Index]