#2.6 Bradley et al Example
#Book should use mid-rank scores but uses natural scores instead

Nij<-rbind(
c( 9, 5, 9,13, 4),
c( 7, 3,10,20, 4),
c(14,13, 6, 7, 0),
c(11,15, 3, 5, 8),
c( 0, 2,10,30, 2))
rownames(Nij)<-c("A","B","C","D","E")
colnames(Nij)<-c("Terrible","Poor","Fair","Good","Excellent")
Nij
CRD(Nij) #default analysis is to use mid-rank scores
CRD(Nij,rankscores=F) #to match book force code not (F=false) to use mid-rank scores so to use natural scores instead