
Last chance! 50% off unlimited learning
Sale ends in
# 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))
# derive region labels
labels <- labelSample(xy=moveData, rad=90, npx=2, pxr=30)
}
# }
Run the code above in your browser using DataLab