我正在尝试使用lidr对树进行分段。我需要计算每棵树中有多少个点被分段。我有一个las变量，它有一个属性treeID。使用filterpoi，我可以得到单个树的ID，并查看有多少个点。我想提取点，并为所有的树ID创建一个列表。我的想法是通过treeID循环，并为每个ID获取点。但是我似乎不能单独提取点。当我打印变量las时，我得到了一些信息，我只需要“点”。我如何提取这个

las <-segment_trees(las, algo) # segment point cloud

las <- filter_poi(las, treeID == 1)

> las
class        : LAS (v1.4 format 6)
memory       : 86.8 Kb 
extent       : 368194, 368203.5, 5807536, 5807544 (xmin, xmax, ymin, ymax)
coord. ref.  : WGS 84 / UTM zone 33N 
area         : 67.9 m²
points       : 1.1 thousand points
density      : 16.11 points/m²
density      : 9.96 pulses/m²