#6.7 CMH Analysis of Hot Chip Example
x<-matrix(c(
3,	4,	4,
3,	4,	2,
3,	4,	1,
4,	1,	4,
3,	3,	3,
2,	5,	3,
2,	2,	3,
1,	2,	1,
3,	1,	3,
3,	4,	2,
3,	3,	4,
5,	4,	5,
1,	1,	1,
1,	1,	3,
4,	5,	1,
5,	3,	1,
2,	3,	1,
1,	2,	3,
1,	2,	3,
2,	3,	3,
2,	2,	4,
3,	4,	1,
3,	3,	1,
1,	1,	4,
1,	1,	4,
4,	3,	5,
4,	1,	1,
2,	1,	1,
1,	4,	1,
2,	1,	4,
3,	4,	2,
3,	1,	3,
4,	2,	4,
1,	3,	1,
2,	3,	2,
1,	3,	1,
1,	3,	4,
2,	3,	1,
3,	2,	3,
2,	2,	5,
4,	4,	1,
3,	3,	4,
2,	1,	1,
2,	3,	4,
2,	1,	2,
4,	1,	1,
3,	1,	3,
2,	4,	1,
3,	4,	1,
4,	1,	1,
3,	2,	1,
4,	4,	3,
2,	1,	1,
3,	2,	1,
3,	2,	1),ncol=3,byrow=T)
colnames(x)<-c("Chip A","Chip B","Chip C")

#contingency tables used for CMH analysis
xtoCMH(x)

#CMH analysis
CMHanalysis(x)