# NOT RUN {
library(raster)
library(classInt)
# create a raster object
data <- runif(100,-23,864)
data <- matrix(data, ncol=10)
data <- raster::raster(data)
mod <- data
ref <- data+300
# Get min, max, and interval for color bar legend
mmi <- intFun.min.max.int.mod.ref(mod, ref)
# }
Run the code above in your browser using DataLab