# NOT RUN {
{
require(rgdal)
require(raster)
require(sp)
# read movement data
moveData <- shapefile(system.file('extdata', 'konstanz_20130804.shp', package="rsMove"))
# read raster data
r <- raster(system.file('extdata', 'tcb_1.tif', package="rsMove"))
# perform directional sampling
seg <- moveSeg(xy=moveData, img=r, type="cont", threshold=0.1)
}
# }
Run the code above in your browser using DataLab