lazfile <- system.file("extdata", "example.las", package = "rlas")
las <- read.las(lazfile)
is_compressed(las)
# The difference is more substantial on bigger point clouds (~30%)
object.size(las)
true_size(las)
Run the code above in your browser using DataLab