#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
CRD(Nij)