# NOT RUN {
library(raster)
# make some data
data <- runif(100,0,11)
data <- matrix(data, ncol=10)
data <- raster::raster(data)
# convert raster of type (a) to type (b)
data <- calc(data,intFun.grid.phase)
plot(data)
plot(data); text(data)
# }
Run the code above in your browser using DataLab