powered by
cutbw(x, k = NULL, min_n = NULL, warn = FALSE)
min_n
k <- 1 + 2*ceiling(log(N)/log(2))
min_n = max(log(N/10)/log(10),1)
y<-cutbw(c(rnorm(200),rnorm(100,mean=8)),k = 30, min_n = 1) barplot(table(y))
Run the code above in your browser using DataLab