# 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'))
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab