| 查看: 1275 | 回复: 10 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
junruiwang新虫 (小有名气)
|
[求助]
求各位大神，perl 对特定范围内的数据求平均值 已有1人参与
|
||
|
文件为： Chr Pos Y 1 49820 -1.68855 1 54414 -1.55555 1 99585 -1.05338 1 103929 -0.523771 1 124119 -0.261121 1 200009 -0.1234 1 390189 2.2456 2 48625 0.0250024 2 88663 -0.659643 2 90128 -0.302134 2 122780 -0.366919 2 555583 -1.00859 想根据第一列和第二列的范围来求第三列的平均值，具体为：第二列的按照每100,000的长度来分组，把第三列求一个平均值，如果有些范围没有数值则写为0（如下）。想得到的结果是： 1 100,000 -1.432493333 1 200,000 -0.392446 1 300,000 -0.1234 1 400,000 2.2456 2 100,000 -0.3259234 2 200,000 0 2 300,000 0 2 400,000 0 2 500,000 0 2 600,000 -1.00859 其中100,000、200,000...代表0-100,000、100,000-200,000范围的意思。 求各位大神帮忙啦！ |
回复此楼» 收录本帖的淘帖专辑推荐
 程序 |
» 猜你喜欢
288求调剂 一志愿哈工大 材料与化工
已经有16人回复
-
0805求调剂
已经有4人回复
-
求调剂，一志愿北林食品与营养095500，301分，已过六级，有科研经历
已经有3人回复
-
0856材料与化工调剂，339
已经有5人回复
-
311（085601）求调剂
已经有10人回复
-
080200专业277分，求带走！
已经有4人回复
-
359求调剂
已经有6人回复
-
342求调剂
已经有6人回复
-
070300化学279求调剂
已经有10人回复
-
086000生物与医药298调剂求助
已经有5人回复
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18369.7
- 红花: 97
- 帖子: 8891
- 在线: 1490.6小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
【答案】应助回帖
|
[perl code] # Program in Perl use Data:  umper;use POSIX; my @sumY, @numY; open my $fh, '<', "output.txt" or die "could not open file: $!"; $line = <$fh>; while (my $line = <$fh>  { my($Chr, $Pos, $Y) = split /\s+/, $line; $cPos = floor($Pos / 100000) ; $sumY[$Chr][$cPos]+=$Y; $numY[$Chr][$cPos]++; } for (my $j= 1; $j <= 2; $j++) { for (my $i= 0; $i <= 5; $i++) { $range = ($i+1)*100000; if ( !defined $numY[$j][$i] ) { $avg = 0; } else { $avg = $sumY[$j][$i] / $numY[$j][$i]; } print "$j $range $avg\n"; } } close $fh; [output] 1 100000 -1.43249333333333 1 200000 -0.392446 1 300000 -0.1234 1 400000 2.2456 1 500000 0 1 600000 0 2 100000 -0.3122582 2 200000 -0.366919 2 300000 0 2 400000 0 2 500000 0 2 600000 -1.00859 |
8楼2016-08-18 06:01:25
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18369.7
- 红花: 97
- 帖子: 8891
- 在线: 1490.6小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
【答案】应助回帖
感谢参与，应助指数 +1
|
#!/usr/bin/perl use warnings; use strict; my $sum = 0; my $n = 0; while (<> {$sum += $_; $n++; } print $sum/$n, "\n"; https://stackoverflow.com/questi ... averages-using-perl |
3楼2016-08-17 18:09:15
FMStation
至尊木虫 (知名作家)
- 应助: 591 (博士)
- 贵宾: 0.03
- 金币: 18369.7
- 红花: 97
- 帖子: 8891
- 在线: 1490.6小时
- 虫号: 2400059
- 注册: 2013-04-04
- 专业: 计算机应用技术
4楼2016-08-17 18:10:25
James_ever
金虫 (文坛精英)
- 应助: 7 (幼儿园)
- 金币: 805.1
- 散金: 910
- 红花: 62
- 沙发: 1
- 帖子: 11151
- 在线: 1117小时
- 虫号: 308106
- 注册: 2006-12-17
- 专业: 金融工程
5楼2016-08-17 19:07:00
