the information is loaded from a .csv file and is extensive
x=loan$Debt.To.Income.Ratio
x=factor(c("0.00-0.10","0.11-0.30", ">0.31"),
levels=c("Low", "Medium", "High")
)
table(x)
output
Low Medium High 0 0 0
for some reason none of the values are being categorized into the Low Medium and High levels.