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