Daily Archives: April 22, 2019

  #####https://www.rdocumentation.org/packages/lidR/versions/2.0.1 library(“lidR”) library(“rgdal”) library(“EBImage”) #####Load Files mypath<- “/media/biomata/SSD1/Dickens_07Dec18/out” myfile<- “Dickens_07Dec18_llp.las” infile<- file.path(mypath,myfile) lastmp = readLAS(infile, select = “xyzirc”)##, Intensity = F, ReturnNumber = F, NumberOfReturn = F, ScanAngle = F, EdgeOfFlightline = F, ScanDirectionFlag = F, UserData = F, PointSourceId = F, color = T) summary(lastmp) lasd<- lasfilterdecimate(lastmp,random(100)) plot(lasd) […]