y <- 100*rnorm(50)
#compute class intervals
class_list <- classInt::classIntervals(var=y, n=12, style="jenks")
class_list$brks
#there should be a slight difference now between class breaks
class_list <- jiggleClass(x=class_list)
class_list$brksRun the code above in your browser using DataLab