script: doc/mc-paper/fly/cluster-svs.R error

[C-YONG]

We encountered the following error during the computation using the script. Could you help identify the possible cause?

svs = lapply(list.files('pan_svs/', '.rds'), function(fn){
gr = readRDS(paste0('pan_svs/', fn))
gr$sample = gsub('(.)\.decomposed.svs.rds', '\1', fn)
gr
})

svs = clusterSVs(svs, range.seq.comp=TRUE, ins.seq.comp=TRUE, nb.cores=16, batch.maxsize=500, simprep=sr, min.rol=.9, max.ins.dist=100)

Error: unable to find an inherited method for function ‘reduce’ for signature ‘x = "list"’