- or download this
perl -ane '{print $F[5]," ",$F[6],"\n";}' < dat.txt
-135.185 178.150
...
... snip
-81.417 52.986
-83.126 -56.051
- or download this
perl -ane '{$t5+=$F[5]; $t6+=$F[6]; $t+=1}
END{print $t5/$t," ",$t6/$t,"\n";}' < dat.txt
-85.6206666666667 30.2721333333333
- or download this
perl -ane '{$t5{$F[3]}+=$F[5]; $t6{$F[3]}+=$F[6]; $t{$F[3]}+=1}
END{foreach $i (keys %t5)
...
Group S -75.969 10.2868
Group G -108.8372 73.3412
Group M -72.0558 7.1884