# 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
o.time <- strptime(paste0(moveData@data$date, ' ', moveData@data$time), format="%Y/%m/%d %H:%M:%S")
# reduce amount of samples
move.reduce <- moveReduce(xy=moveData, ot=o.time, img=r)
# query data
ov <- dataQuery(xy=move.reduce$points, img=r)
# plot output
x <- move.reduce$points@coords[,1]
y <- move.reduce$points@coords[,2]
et <- move.reduce$points@data$elapsed.time
op <- plotMove(x=x, y=y, o.time=et, value=ov[,1], type="cont")
}
# }
Run the code above in your browser using DataLab