#2.3 The Untied Analysis
#Without ties there is no difference between using the natural and mid-rank scores

Nij<-rbind(
c( 1, 1, 1, 1, 0, 0, 0, 0, 0, 0),
c( 0, 0, 0, 0, 1, 0, 0, 1, 1, 0),
c( 0, 0, 0, 0, 0, 1, 1, 0, 0, 1))
rownames(Nij)<-c("A","B","C")
colnames(Nij)<-1:10
Nij
CRD(Nij) #default analysis is to use mid-rank scores
CRD(Nij,rankscores=F) #force code not (F=false) to use mid-rank scores so to use natural scores instead