How to avoid scientific notation present in the Intervals created by the cut function.
a<-seq(10000,50000, by=500 ) cut(a, breaks = seq(0,max(a)+300, by
As suggested by Pascal,
Try with adding the argument dig.lab = 5 to cut function.