if (FALSE) {
#Discretize into 8 bins, each containing equal number of elements
RIA_image <- discretize(RIA_image, bins_in = 8, equal_prob = TRUE,
use_orig = TRUE, write_orig = FALSE)
#Discretize into 6 bins, each with the same width
RIA_image <- discretize(RIA_image, bins_in = 6, equal_prob = FALSE,
use_orig = TRUE, write_orig = FALSE)
#Discretize into 2,4,8,16,32 bins, each containing equal number of elements
RIA_image <- discretize(RIA_image, bins_in = 2^(1:5), equal_prob = FALSE,
use_orig = TRUE, write_orig = FALSE)
#D
}
Run the code above in your browser using DataLab