# NOT RUN {
library(raster)
# make some data
data <- runif(100,-10,10)
data <- matrix(data, ncol=10)
data <- raster::raster(data)
# compute upper and lower threshold values for outliers
threshold.values <- intFun.grid.define.outlier(data, 2)
# }
Run the code above in your browser using DataLab