## Not run: ------------------------------------
# # Define a bounding box
# areaBox <- raster::extent(-10, 5, 48, 62)
# twindow <- seq(as.Date("2012-01-01"), as.Date("2012-01-31"), by = "months")
#
# TRMMfile <- TRMM(product = "3B43", version = 7,
# type = "precipitation.accum",
# twindow = twindow, areaBox = areaBox)
#
# raster::plot(TRMMfile)
## ---------------------------------------------
Run the code above in your browser using DataLab