library(lidR)
shpfile <- system.file("extdata", "efi_plot.shp", package="lidR")
inventory <- sf::st_read(shpfile, quiet = TRUE)
inventory # contains an ID and a Value Of Interest (VOI) per plot
LASfile <- system.file("extdata", "Megaplot.laz", package="lidR")
las <- readLAS(LASfile, filter = "-keep_random_fraction 0.5 -keep_z_above 25")
m <- plot_metrics(las, .stdmetrics_rn, inventory, radius = 11.28)
#> Erreur dans `[[<-.data.frame`(`*tmp*`, "echo", value = 0L) :
#> le tableau de remplacement a 1 lignes, le tableau remplacé en a 0
#> De plus : Messages d'avis :
#> 1: Dans clip_circle.LAS(las, xcenter, ycenter, radius, data = geometry) :
#> No point found for within disc (684855.025226659, 5017891.2092272, 11.28).
#> 2: Dans clip_circle.LAS(las, xcenter, ycenter, radius, data = geometry) :
#> No point found for within disc (684943.973480844, 5017795.88158072, 11.28).
#> 3: Dans min(x) : aucun argument trouvé pour min ; Inf est renvoyé
#> 4: Dans max(x) : aucun argument pour max ; -Inf est renvoyé
#> 5: Dans min(x) : aucun argument trouvé pour min ; Inf est renvoyé
#> 6: Dans max(x) :
#> Erreur dans `[[<-.data.frame`(`*tmp*`, "echo", value = 0L) :
#> le tableau de remplacement a 1 lignes, le tableau remplacé en a 0
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4