# NOT RUN {
library(raster)
# create a raster object with NA
data <- c(runif(99,-10,10),NA)
data <- matrix(data, ncol=10)
data <- raster::raster(data)
# replace NA with zero in raster object
data <- intFun.grid.na(data)
plot(data); text(data)
# }
Run the code above in your browser using DataLab