# NOT RUN {
## load DEM/DSM
dem <- raster::raster(system.file("extdata", "mrbiko.tif", package = "uavRmp"))
## generate extraction line object
line <- sp_line(c(8.66821,8.68212),c(50.83939,50.83267),ID="Highest Position")
## extract highest position
maxpos_on_line(dem,line)
# }
Run the code above in your browser using DataLab