# number of points per las
n <- 100
las1 <- lidR::LAS(data.frame(X = runif(n), Y = runif(n), Z = runif(n)))
las2 <- lidR::LAS(data.frame(X = runif(n) + 2, Y = runif(n), Z = runif(n)))
las3 <- lidR::LAS(data.frame(X = runif(n) + 4, Y = runif(n), Z = runif(n)))
merged <- las_merge(las1, las2, las3)
lidR::npoints(merged) == (n*3)
lasList <- list(las1,las2,las3)
merged <- las_merge(lasList)
lidR::npoints(merged) == (n*3)
Run the code above in your browser using DataLab