# NOT RUN {
LASfile <- system.file("extdata", "fwf.laz", package="rlas")
fwf <- readLAS(LASfile)
las <- interpret_waveform(fwf)
x <- plot(fwf, size = 3, colorPalette = "red")
plot(las, color = "Amplitude", bg = "white", add = x, size = 2)
# }
Run the code above in your browser using DataLab