LehmacherTest: 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

either a two-dimensional contingency table in matrix form, or a factor object.

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.

Value

A list with class "mtest" containing the following components:
statistica vector with the value of the test statistics.
parameterthe degrees of freedom, which is always 1 in LehmacherTest.
p.valuea vector with the p-values of the single tests.
p.value.corra vector with the "hochberg" adjusted p-values of the single tests. (See p.adjust)
methoda character string indicating what type of test was performed.
data.namea character string giving the name of the data.

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.

References

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

Examples

Run this code

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)

Run the code above in your browser using DataCamp Workspace