# 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 raster data
file <- list.files(system.file('extdata', '', package="rsMove"), 'tc.*tif', full.names=TRUE)
rsStk <- stack(file)
rsStk <- stack(rsStk, rsStk, rsStk) # dummy files for the example
# raster dates
rd = seq.Date(as.Date("2012-01-01"), as.Date("2012-12-31"), 45)
# target dates
td = seq.Date(as.Date("2012-04-01"), as.Date("2012-08-31"), 45)
# interpolate raster data to target dates
i.img <- imgInt(img=rsStk, rd=rd, td=td, bs=60, xy=moveData)
}
# }
Run the code above in your browser using DataLab