Perl PDL – 在向量中获得80％的最低值

发布时间：2020-12-16 06:17:17 所属栏目：大数据来源：网络整理

导读：是否有一个优雅的PDL函数,它接收一个值列表并返回80％原始值最低的列表？例如：如果我有这样的列表：(9,4,1,2,7,8,3,5,6,10) 我想在原始列表上调用此函数后得到(1,8)(值的顺序无关紧要 – 它不需要对值进行排序). 我发现PDL :: Ufunc :: oddpct可以返回第8

是否有一个优雅的PDL函数,它接收一个值列表并返回80％原始值最低的列表？

例如：
如果我有这样的列表：(9,4,1,2,7,8,3,5,6,10)

我想在原始列表上调用此函数后得到(1,8)(值的顺序无关紧要 – 它不需要对值进行排序).

我发现PDL :: Ufunc :: oddpct可以返回第80百分位,但我希望获得一个达到该百分位数的值列表.我可以自己做,但如果有开箱即用的东西 – 为什么不使用它？

谢谢！！！

解决方法

我建议你使用pct来获得第80百分位数,并结合使用where原语来选择该值之下的所有内容.使用您自己的数据,它看起来像这样

use strict;
use warnings;

use PDL;

my $list = pdl(9,10);
print qsort $list->where($list <= $list->pct(80/100));

OUTPUT

[1 2 3 4 5 6 7 8]

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!