> #2.4 Japanese Chocolate Example
> 
> Nij<-rbind(
+ c( 2, 1, 6, 1, 8, 9, 6),
+ c( 0, 1, 3, 4,15, 7, 1))
> rownames(Nij)<-c("Australian","Japanese")
> colnames(Nij)<-1:7
> Nij
           1 2 3 4  5 6 7
Australian 2 1 6 1  8 9 6
Japanese   0 1 3 4 15 7 1
> CRD(Nij)
$Cri
            
               Location Dispersion   Skewness   Kurtosis 5-th order 6-th order
  Australian  0.5370421   1.933517 -0.3370662  0.2161174  0.5286527  0.7968964
  Japanese   -0.5540953  -1.994914  0.3477693 -0.2229800 -0.5454395 -0.8222010

$partition
           df         SS      pvalue
Location    1  0.5954358 0.440324800
Dispersion  1  7.7181719 0.005466773
Residual    4  2.2190202 0.695548630
Total       6 10.5326278 0.103940515

>