SHARE
TWEET

Untitled

a guest Jun 17th, 2019 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #Get the list of LAS files to work with
  2. files <- list.files(path = "/...2015TestGroup", full.names = TRUE,  recursive=FALSE)
  3.  
  4. #Set up the catalog properties
  5. ctg <- catalog(files)
  6. opt_chunk_size(ctg) <- 500
  7. opt_chunk_buffer(ctg) <- 20
  8. opt_output_files(ctg) <- ".../Outputs/2015nonground/{XLEFT}_{YBOTTOM}_2015"
  9.  
  10. #Select only those points not classified as "ground"
  11. aboveground <- lasfilter(ctg, Classification != 2L)
  12.  
  13. #Get the list of 2015 "non-ground" points
  14. files <- list.files(path = ".../2015nonground", full.names = TRUE,  recursive=FALSE)
  15. #Set up the catalog properties
  16. ctg <- catalog(files)
  17. opt_output_files(ctg) <- ".../2016thinned/{XLEFT}_{YBOTTOM}_2015"
  18.  
  19. #Thin the points so they are consistent with the 2007 data
  20. thinned <- lasfilterdecimate(ctg, homogenize(1, 1))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top