# NOT RUN {
require(uavRst)
require(link2GI)
# create and check the links to the GI software
giLinks<-list()
giLinks$grass<-link2GI::linkGRASS7(returnPaths = TRUE)
if (giLinks$grass$exist) {
# get the data
utils::download.file(url="https://github.com/gisma/gismaData/raw/master/uavRst/data/lidar.las",
destfile="lasdata.las")
# create 2D point cloud DTM
dtm3 <- pc_2D_mdtm(laspcFile = "lasdata.las",
gisdbasePath = tempdir(),
tension = 20 ,
targetGridSize = 0.5,
sampleGridSize = c(100, 50, 25),
giLinks = giLinks)
raster::plot(dtm3)
}
# }
Run the code above in your browser using DataLab