if (FALSE) {
#Discretize loaded image and then calculate GLCM statistics
RIA_image <- discretize(RIA_image, bins_in = 8, equal_prob = TRUE)
RIA_image <- glcm(RIA_image, use_orig = FALSE, use_slot = "discretized$ep_8",
off_right = 0, off_down = 1, off_z = 0)
RIA_image <- glcm_stat(RIA_image, use_orig = FALSE, use_slot = "glcm$ep_8_010")
#Batch calculation of GLCM-based statistics on all calculated GLCMs
RIA_image <- glcm_stat(RIA_image, use_type = "discretized")
}
Run the code above in your browser using DataLab