# 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)
Run the code above in your browser using DataLab