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