# NOT RUN {
LASfile <- system.file("extdata", "Megaplot.laz", package="lidR")
lidar = readLAS(LASfile)
firstReturns = lidar %>% lasfilterfirst
groundReturns = lidar %>% lasfilterground
# }
Run the code above in your browser using DataCamp Workspace