#3.5 Tomato Example

Nij<-rbind(
c( 4, 8, 9, 3),
c( 5, 8, 6, 5),
c( 4, 5, 7, 8),
c(11, 3, 2, 8))
rownames(Nij)<-c("Floradade","Momotaro","Summit","Rutgers")
colnames(Nij)<-1:4
Nij
RBD(Nij)