x <- c(rnorm(10, 1, 1), rnorm(10, 3, 2), rnorm(20, 5, 3))
centers <- c(1, 3, 5)
nearest(centers)(x)
breaks <- c(2, 4)
cut_at(breaks)(x)
bin_by_eqcut(nbins=4)(x)
bin_by_ntile(nbins=4)(x)
bin_by_pam(nbins=4)(x)
bin_by_classInt("pretty", nbins=4)(x)
Run the code above in your browser using DataLab