if (FALSE) {
aa <- expand.grid(lat = seq(40, 50, 1),
lon = seq(20, 30, 1),
time = seq(1900, 2000, 1))
aa$anomaly = rnorm(nrow(aa))
aa <- brick(dt.to.brick(aa, "anomaly"))
}
Run the code above in your browser using DataLab