# NOT RUN {
{
require(raster)
# read movement data
moveData <- read.csv(system.file('extdata', 'konstanz_20130804.csv', package="rsMove"))
moveData <- SpatialPointsDataFrame(moveData[,1:2], moveData)
# test function for 5, 10 20 and 30 m
a.res <- sMoveRes(xy=moveData, pxr=c(5, 10, 20, 30))
}
# }
Run the code above in your browser using DataLab