(mf_distr(rnorm(1000)))
mf_distr(rbeta(1000, .6, 7))
mf_distr(rbeta(1000, 5, .6))
a <- rbeta(1000, .6, 7)
bks <- mf_get_breaks(a, nbreaks = 5, breaks = "quantile")
mf_distr(a, breaks = bks)
mf_distr(a,
breaks = bks, pal = "Teal", yaxt = FALSE,
main = 'Classification method : "quantile"'
)
Run the code above in your browser using DataLab