# NOT RUN {
library(raster)
# make some data
data01 <- c(seq(1,99,1), NA)
data02 <- c(NA, seq(101,199,1))
data03 <- data01 + data02
data01 <- raster::raster(matrix(data01, ncol=10))
data02 <- raster::raster(matrix(data02, ncol=10))
data03 <- raster::raster(matrix(data03, ncol=10))
data <- raster::stack(data01, data02, data03)
randomSample <- raster::calc(data, fun = intFun.sampleGridTime)
plot(data)
plot(randomSample)
# }
Run the code above in your browser using DataLab