# NOT RUN {
file = system.file("extdata", "pine.laz", package="TreeLS")
tls = readTLS(file)
bbox(tls)
range(tls$Z)
### swap the Y and Z axes
zy = tlsTransform(tls, c('x', 'z', 'y'))
bbox(zy)
range(zy$Z)
### return an upside down point cloud
ud = tlsTransform(tls, c('x', 'y', '-z'))
bbox(ud)
range(ud$Z)
plot(zy)
### mirror all axes, then set the point cloud's starting point as the origin
rv = tlsTransform(tls, c('-x', '-y', '-z'), bring_to_origin=TRUE)
bbox(rv)
range(rv$Z)
# }
Run the code above in your browser using DataLab