#6.8 Page Analysis of Ordinal Trinary Data
x<-rbind(
c(2.5,1,2.5),
c(1.5,3,1.5),
c(2.5,1,2.5),
c(1.5,3,1.5),
c(1.5,3,1.5),
c(1,3,2),
c(1,3,2),
c(1.5,3,1.5))
colnames(x)<-c("X","Y","Z")
x

xtotab3(x)
OrderedBlockAnalysis(x)

#Note see example 6.6 for CMH "Correlation Statistic" output