#------------------------------------------------
# PE Data
#------------------ -----------------
data(PE)
continuous.PE <- PE[, 1:2]
#Transforming the continuous to ordinal data :
tcontinuous = continuous2ordinal(continuous.PE, categ=5)
table(tcontinuous)
#Transforming the count to ordinal data:
set.seed(12345)
count.data = rpois(1000, 3)
tcount = count2ordinal(count.data, 5)
table(tcount)
Run the code above in your browser using DataLab