#6.5 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")

xtotab(x)
U(x)
BlockAnalysis(x)