R crashing on gediWFMetrics()

[obata-shingo]

Hi,

I'm using gediWFMetrics function to retrieve the metrics from dense lidar data (10K points/m2). The R script I wrote is as follows.

filepath="G:/lasdatapath/"
clip_clasified=readLAS(paste0(filepath,"2401saiki_p1.las"))
saiki_pi=gediWFSimulator(paste0(filepath,"2401saiki_p1.las"),output = file.path(filepath,"gediWF_2401saiki_p1.h5"),coords = c(mean(clip_clasified@data$X), mean(clip_clasified@data$Y)))
wf_saiki_metrics<-gediWFMetrics(input=saiki_pi,outRoot=file.path(filepath, "saiki_pi"))

clip_clasified is the unnormalized point cloud that I want to get the GEDI-like wave form metrics. Though gediWFSimulator function in the script works well without any issue, running gediWFMetrics function immediately causes fatal error (the screen capture is shown below) that I lose all the record and need to start over. It seems that the gediWFMetrics is working but the memory overflows immediately.

> clip_clasified
class        : LAS (v1.2 format 1)
memory       : 199.3 Mb 
extent       : 61687.91, 61711.91, -20140.88, -20116.88 (xmin, xmax, ymin, ymax)
coord. ref.  : JGD2011 / Japan Plane Rectangular CS II 
area         : 452.3 m²
points       : 4.35 million points
density      : 9623.37 points/m²
density      : 9623.37 pulses/m²

So, could you help me to avoid this error?
I deeply appreciate any kind of feedback in advance!!!! Thank you.