# NOT RUN {
{
require(rgdal)
require(raster)
require(sp)
# read movement data
file <- system.file('extdata', 'konstanz_20130805-20130811.shp', package="rsMove")
moveData <- shapefile(file)
# read remote sensing data
file <- list.files(system.file('extdata', '', package="rsMove"), 'tc.*tif', full.names=TRUE)
rsStk <- stack(file)
# retrieve remote sensing data for samples
rsQuery <- dataQuery(xy=moveData,img=rsStk)
}
# }
Run the code above in your browser using DataLab