X scale factors should be factor ten of 0.1 or 0.5 or 0.25 not 1e-08

如何解决：
 

library(lidR)
library(rlas)

las <- readLAS("F:/135seg.las")
lasdata <- as.data.frame(las@data)
lasdata$X <- lasdata$X+210500
lasdata$Y <- lasdata$Y+2530100
lasdata$Z <- lasdata$Z
head(las)

lasheader = header_create(lasdata)
rlas::write.las("E:/subplement/LKYlas/LK079_tls_vox_not2.las", lasheader, lasdata)

这一步报错：
X scale factors should be factor ten of 0.1 or 0.5 or 0.25 not 1e-08

解决如下：

设置偏移后直接：
header = LASheader(lasdata) 

las2 <- LAS(lasdata, header)
las3 <- las_rescale(las2,0.001,0.001,0.001)
writeLAS(las3,"E:/135.las",index = FALSE)