# NOT RUN {
# Calculate GLCM textures on a matrix using low-level calc_texture function
d <- matrix(seq(1:25), nrow=5, ncol=5, byrow=TRUE)
calc_texture(d, n_grey=25, window_dims=c(3,3),
shift=matrix(c(1,1), nrow=1), statistics=c('variance'),
na_opt="any", na_val=NA)
# }
Run the code above in your browser using DataLab