# NOT RUN {
{
require(raster)
# read raster data
r <- raster(system.file('extdata', 'tcb_1.tif', package="rsMove"))
# read movement data
moveData <- read.csv(system.file('extdata', 'konstanz_20130804.csv', package="rsMove"))
moveData <- SpatialPointsDataFrame(moveData[,1:2], moveData, proj4string=crs(r))
# observation time
ot <- strptime(paste0(moveData@data$date, ' ',moveData@data$time), format="%Y/%m/%d %H:%M:%S")
# perform directional sampling
of <- function(x) {lm(x~c(1:length(x)))$coefficients[2]}
s.sample <- spaceDir(xy=moveData, ot=ot, img=r, dir="bwd", type='cont', fun=of)
}
# }
Run the code above in your browser using DataLab