lazfile <- system.file("extdata", "example.laz", package="rlas")
las = read.las(lazfile)
header = read.lasheader(lazfile)
ex = rep(NA_integer_, nrow(las))
las$Exdata = ex
new_header = header_add_extrabytes(header, las$Exdata, "Exdata", "Extra numeric data")
Warning messages:
1: In min(data, na.rm = TRUE) :
aucun argument trouvé pour min ; Inf est renvoyé
2: In max(data, na.rm = TRUE) : aucun argument pour max ; -Inf est renvoyé