# NOT RUN {
{
require(raster)
# read raster data
r <- raster(system.file('extdata', 'landCover.tif', package="rsMove"))
# read movement data
data(shortMove)
# observation time
obs.time <- strptime(paste0(shortMove@data$date, ' ', shortMove@data$time),
format="%Y/%m/%d %H:%M:%S")
# perform directional sampling
seg <- moveSeg(r, shortMove, obs.time, data.type="cat")
}
# }
Run the code above in your browser using DataLab