b Analizar y ejecuta el siguiente script de awk.
Se ejecuca invocando el comando freq_cont.pl
en un pipeline
freq_count.pl pep 1 archivo.aa c |
BEGIN{
KD["1"]=1.80;
KD["2"]=2.50;
KD["3"]=-3.50;
KD["4"]=-3.50;
KD["5"]=2.80;
KD["6"]=-0.40;
KD["7"]=-3.20;
KD["8"]=4.50;
KD["9"]=-3.90;
KD["10"]=3.80;
KD["11"]=1.90;
KD["12"]=-3.50;
KD["13"]=-1.60;
KD["14"]=-3.50;
KD["15"]=-4.50;
KD["16"]=-0.80;
KD["17"]=-0.70;
KD["18"]=4.20;
KD["19"]=-0.90;
KD["20"]=-1.30
}
{ for (i=1;i<21;i++) {H+=KD[i]*$i;largo=largo+$i};print
largo,H/largo ; largo=0;H=0}
soluciones
2 fastaUtils.pl -u GCF_Sparadoxus_cds.fna |sed 's//\1\n/g'