#6.6 CMH Analysis of Ordinal Trinary Example

#the data are coded here so "-"=1, "0"=2 and "+"=3
x<-rbind(
c(2,1,2),
c(2,3,2),
c(2,1,2),
c(1,2,1),
c(1,2,1),
c(1,3,2),
c(1,3,2),
c(1,3,1))
colnames(x)<-c("X","Y","Z")

#contingency tables used for CMH analysis
xtoCMH(x)

#CMH analysis
CMHanalysis(x)