if (FALSE) {
if (requireNamespace("raster", quietly = TRUE)) {
r <- raster::brick(ncols = 36, nrows = 18, nl = 4)
r[14:18, 25:28] <- (1:20 %*% t(1:4))
names(r) <- c("y2000..bla", "y2001..bla", "y2000..blub", "y2001..blub")
m <- as.magpie(r)
r2 <- as.RasterBrick(m)
}
}
Run the code above in your browser using DataLab