## Not run:
# # Download single tile
# download.hansen(tile=c('00N', '130E'), data.type=c('loss', 'lossyear'),
# download.folder=getwd())
#
# # Batch download of multiple tiles
# tiles <- list(c('00N', '140E'), c('00N', '130E'))
# for( j in 1:length(tiles)){
# download.hansen(tile=tiles[[j]], data.type=c('loss'))
# }
# ## End(Not run)
Run the code above in your browser using DataLab