# NOT RUN {
{
 require(raster)
 #'  # read raster data
 file <- list.files(system.file('extdata', '', package="rsMove"), 'ndvi.tif', full.names=TRUE)
 r.stk <- stack(file)
 r.stk <- stack(r.stk, r.stk, r.stk) # dummy files for the example
 # read movement data
 data(shortMove)
 # raster dates
 file.name <- names(r.stk)
 env.dates <- as.Date(paste0(substr(file.name, 2, 5), '-',
 substr(file.name, 7, 8), '-', substr(file.name, 10, 11)))
 # target dates
 target.dates = as.Date("2013-08-10")
 # interpolate raster data to target dates
 i.env.data <- imgInt(r.stk, env.dates, target.dates, c(60,60), xy=shortMove)
}
# }
Run the code above in your browser using DataLab