# NOT RUN {
library(raster)
# make some data
data <- runif(100,-1,1)
data <- matrix(data, ncol=10)
data <- raster::raster(data)
plot(data)
intFun.addBWtext(myRaster = data, myDigits = 1, myCex = 0.7)
# }
Run the code above in your browser using DataLab