# NOT RUN {
# Example 1. Retrieve information about a WTSS coverage
coverage.tb <- sits_coverage(service = "WTSS-INPE", name = "MOD13Q1")
# Example 2. Create a raster coverage with metadata
# read a raster file and put it into a vector
files <- c(system.file("extdata/raster/mod13q1/sinop-crop-ndvi.tif", package = "sits"))
# create a raster coverage file based on the information about the files
raster.tb <- sits_coverage(service = "RASTER", name = "Sinop-crop",
timeline = timeline_modis_392, bands = "ndvi", files = files)
# }
Run the code above in your browser using DataLab