Winer's test of compound symmetry

Run a test of compound symmetry. generates a data frame of random data suitable for analyses. It assesses the significance of the null hypothesis that the covariance matrix is compound symmetric. This test is given without demonstration in (Winer et al. 1991) , p. 517.

WinerCompoundSymmetryTest(dta, cols)

Arguments

dta

A data frame containing within-subject measures, one participant per line;

cols

A vector indicating the columns containing the measures.

Value

p the p-value of the null hypothesis that the data are compound symmetric.

References

Winer BJ, Brown DR, Michels KM (1991). Statistical principles in experimental design. McGraw-Hill, New York.

Examples

# creates a small data frames with 4 subject's scores for 5 measures:
dta <- data.frame(cbind(
        col1 <- c(3., 6., 2., 2., 5.),
        col2 <- c(4., 5., 4., 4., 3.),
        col3 <- c(2., 7., 7., 8., 6.),
        col4 <- c(6., 8., 4., 6., 5.)
    ))
# performs the test (here p = 0.6733)
WinerCompoundSymmetryTest(dta)
#> [1] 0.6733123