> #5.4.2 Geese Meat Example
> x<-rbind(
+ c(2.5,1,2.5),
+ c(1.5,3,1.5),
+ c(2.5,1,2.5),
+ c(1,3,2),
+ c(1.5,3,1.5),
+ c(1,2.5,2.5),
+ c(1,3,2),
+ c(1.5,3,1.5))
> colnames(x)<-c("A","B","C")
> x
       A   B   C
[1,] 2.5 1.0 2.5
[2,] 1.5 3.0 1.5
[3,] 2.5 1.0 2.5
[4,] 1.0 3.0 2.0
[5,] 1.5 3.0 1.5
[6,] 1.0 2.5 2.5
[7,] 1.0 3.0 2.0
[8,] 1.5 3.0 1.5
> 
> xtotab3(x)
  1 1.5 2 2.5 3
A 3   3 0   2 0
B 2   0 0   1 5
C 0   3 2   3 0
> OrderedBlockAnalysis(x)
$Z
           [,1]      [,2]       [,3]       [,4]
[1,]  0.9707253 -1.428050  0.2025479  0.9716005
[2,] -1.6813456 -2.623361 -0.3508232 -0.2607250

$partition
         df      Value      pvalue
Page      1  0.9423077 0.331685068
Umbrella  1  2.8269231 0.092695803
Residual  2 10.0974359 0.006417556
Total     4 13.8666667 0.007732987

>