## Not run:
# # Define a bounding box
# bbox <- list(lonMin=-3.82, latMin=48,lonMax=-3.63, latMax=50)
# twindow <- seq(as.Date("2012-01-01"), as.Date("2012-01-31"), by="months")
#
# TRMM(inputLocation="ftp://disc2.nascom.nasa.gov/data/TRMM/Gridded/",
# product = "3B43",
# version = 7,
# type = "precipitation.accum",
# timeExtent = twindow,
# bbox = bbox,
# outputfileLocation = "~/")
#
# # or simply
# TRMM(timeExtent = twindow, bbox = bbox)#'
# plot(brick("~/trmm_acc.tif"))
# ## End(Not run)
Run the code above in your browser using DataLab