CDSがATGで始まる
割合を求める
各エントリーの
各CDSの開始位置
各エントリーの全CDSの
開始位置の集合
foreach $cds_start (@cds_start_set){
print substr($seq, $cds_start - 1, 3), "\n";
}
各エントリーの
全塩基配列
if(substr($seq, $cds_start - 1, 3) eq “atg”){
$atg_count ++;
}
ダウンロード

CDSがATGで始まる 割合を求める