Running examples in ‘rGEDI-Ex.R’ failed
The error most likely occurred in:

> ### Name: gediWFMetrics
> ### Title: GEDI full waveform data processing
> ### Aliases: gediWFMetrics
> 
> ### ** Examples
> 
> ## Don't show: 
> rm(list=ls())
> ## End(Don't show)
> 
> libsAvailable = require(lidR) && require(plot3D)
Loading required package: lidR
Loading required package: raster
Loading required package: sp
Warning: multiple methods tables found for ‘area’
Loading required package: plot3D
> if (libsAvailable) {
+ outdir = tempdir()
+ 
+ # Specifying the path to ALS data (zip)
+ alsfile_Amazon_zip <- system.file("extdata", "Amazon.zip", package="rGEDI")
+ alsfile_Savanna_zip <- system.file("extdata", "Savanna.zip", package="rGEDI")
+ 
+ # Unzipping ALS data
+ alsfile_Amazon_filepath <- unzip(alsfile_Amazon_zip,exdir = outdir)
+ alsfile_Savanna_filepath <- unzip(alsfile_Savanna_zip,exdir = outdir)
+ 
+ # Reading and plot ALS file (las file)
+ als_Amazon<-readLAS(alsfile_Amazon_filepath)
+ als_Savanna<-readLAS(alsfile_Savanna_filepath)
+ 
+ # Extracting plot center geolocations
+ xcenter_Amazon = mean(als_Amazon@bbox[1,])
+ ycenter_Amazon = mean(als_Amazon@bbox[2,])
+ xcenter_Savanna = mean(als_Savanna@bbox[1,])
+ ycenter_Savanna = mean(als_Savanna@bbox[2,])
+ 
+ # Simulating GEDI full waveform
+ wf_Amazon<-gediWFSimulator(input=alsfile_Amazon_filepath,
+                           output=file.path(outdir,"gediWF_amazon_simulation.h5"),
+                           coords = c(xcenter_Amazon, ycenter_Amazon))
+ 
+ wf_Savanna<-gediWFSimulator(input=alsfile_Savanna_filepath,
+                            output=file.path(outdir,"gediWF_Savanna_simulation.h5"),
+                            coords = c(xcenter_Savanna, ycenter_Savanna))
+ 
+ # Extracting GEDI full waveform derived metrics without adding noise to the full waveform
+ wf_amazon_metrics<-gediWFMetrics(input=wf_Amazon,outRoot=file.path(outdir, "amazon"))
+ wf_savanna_metrics<-gediWFMetrics(input=wf_Savanna,outRoot=file.path(outdir, "savanna"))
+ 
+ metrics<-rbind(wf_amazon_metrics,wf_savanna_metrics)
+ rownames(metrics)<-c("Amazon","Savanna")
+ head(metrics)
+ 
+ # Extracting GEDI full waveform derived metrics after adding noise to the waveform
+ wf_amazon_metrics_noise<-gediWFMetrics(input=wf_Amazon,
+                         outRoot=file.path(outdir, "amazon"),
+                         linkNoise= c(3.0103,0.95),
+                         maxDN= 4096,
+                         sWidth= 0.5,
+                         varScale= 3)
+ 
+ wf_savanna_metrics_noise<-gediWFMetrics(
+                        input=wf_Savanna,
+                        outRoot=file.path(outdir, "savanna"),
+                        linkNoise= c(3.0103,0.95),
+                        maxDN= 4096,
+                        sWidth= 0.5,
+                        varScale= 3)
+ 
+ close(wf_Amazon)
+ close(wf_Savanna)
+ 
+ metrics_noise<-rbind(wf_amazon_metrics_noise,wf_savanna_metrics_noise)
+ rownames(metrics_noise)<-c("Amazon","Savanna")
+ head(metrics_noise)
+ 
+ }
Error in (function (cl, name, valueClass)  : 
  assignment of an object of class “logical” is not valid for @‘proj4string’ in an object of class “LAS”; is(value, "CRS") is not TRUE
Calls: readLAS ... streamLAS -> streamLAS.character -> LAS -> <Anonymous>
Execution halted