LASfile <- system.file("extdata", "Topography.laz", package="lidR")
las = readLAS(LASfile, filter = "-inside 273450 5274350 273550 5274450")
#plot(las)
dtm = rasterize_terrain(las, algorithm = tin())
#plot(dtm)
#plot_dtm3d(dtm)
Run the code above in your browser using DataLab