22
22
my %param=(-pA=>$a,-pC=>$c,-pG=>$g,-pT=>$t,
23
23
-lA=>$la, -lC=>$lc,-lG=>$lg,-lT=>$l,
24
24
-IC=>$ic,-e_val=>$score, -id=>$mid);
27
27
use Bio::Matrix::PSM::IO;
29
29
while (my $psm=$psmIO->next_psm) {
30
30
#Now we have a Bio::Matrix::PSM::Psm object,
31
31
# see Bio::Matrix::PSM::PsmI for details