#无监督分箱
library(infotheo)
nbins<-3
#等宽分箱
equal_width <- discretize(Bankloan$income,"equalwidth",nbins)
table(equal_width)
plot(Bankloan$income, col = equal_width$X)
#等频分箱<
#无监督分箱
library(infotheo)
nbins<-3
#等宽分箱
equal_width <- discretize(Bankloan$income,"equalwidth",nbins)
table(equal_width)
plot(Bankloan$income, col = equal_width$X)
#等频分箱<