Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(raster)
- MODIS <- stack('path/to/modis stack.extension')
- Masks <- stack('path/to/mask stack.extension')
- MODIS_masked <- mapply(FUN = function(x,mask) mask(x = x, mask = mask),x = as.list(MODIS), mask = as.list(Masks))
- MODIS_masked <- stack(MODIS_masked)
Add Comment
Please, Sign In to add comment