> #3.3 Softdrink Size Example
> 
> Nij<-rbind(
+ c(42,24,34),
+ c(20,65,15),
+ c(38,11,51))
> rownames(Nij)<-c("Small","Medium","Large")
> colnames(Nij)<-1:3
> Nij
        1  2  3
Small  42 24 34
Medium 20 65 15
Large  38 11 51
> RBD(Nij)
$Cri
        
         Location Dispersion
  Small      -0.8   1.616581
  Medium     -0.5  -5.484828
  Large       1.3   3.868247

$partition
         df    SS       pvalue
Location  2  2.58 2.752708e-01
Residual  2 47.66 4.474687e-11
Total     4 50.24 3.217331e-10

>