# creating a random rank data set
rankmat = replicate(10,sample(1:52,52), simplify = "array")
ordermat = OrderingToRanking(rankmat)
countvec = sample(1:52,52,replace=TRUE)
rankdat = new("RankData",nobj=52,nobs=sum(countvec),ndistinct=10,
ranking=rankmat,ordering=ordermat,count=countvec)Run the code above in your browser using DataLab