¹ÙÀÌ¿À :: »öÀÎ :: Æø¹ß

BIO :: INDEX :: BLAST´Â À妽º BLAST º¸°í¼­°¡ÀÖ´Â PERL ¸ðµâÀ̸ç Äõ¸® ¾×¼¼½º¸¦ ±â¹ÝÀ¸·Î °Ë»öÀ» Áö¿øÇÕ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

¹ÙÀÌ¿À :: »öÀÎ :: Æø¹ß ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Jason Stajich
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~birney/bioperl-1.4/Bio/PopGen/IO.pm

¹ÙÀÌ¿À :: »öÀÎ :: Æø¹ß ű×


¹ÙÀÌ¿À :: »öÀÎ :: Æø¹ß ¼³¸í

Bio :: Index :: Blast´Â À妽º Blast º¸°í¼­°¡ÀÖ´Â Perl ¸ðµâÀ̸ç Äõ¸® ¾×¼¼½º¸¦ ±â¹ÝÀ¸·Î °Ë»öÀ» Áö¿øÇÕ´Ï´Ù. Bio :: Index :: Blast´Â À妽º BLAST º¸°í¼­°¡ÀÖ´Â PERL ¸ðµâÀ̸ç Äõ¸® ¾×¼¼½º¸¦ ±â¹ÝÀ¸·Î °Ë»öÀ» Áö¿øÇÕ´Ï´Ù. ½Äº°ÀÚ´Â ¾ö°ÝÇÕ´Ï´Ù. Bio :: Index :: Blast; ³» ($ indexfile, $ file1, $ file2); MY $ index = »õ BIO :: »öÀÎ :: BLAST (-filename => $ indexfile, -write_flag => 1); $ index-> make_index ($ file1, $ file2); ³» $ ID; ³» $ data = $ index-> get_stream ($ ID); $ BPLITE_REPORT = $ INDEX-> FETCH_REPORT ($ ID); Àμâ "Äõ¸®°¡", $ BPLITE_REPORT-> Äõ¸® "n"; while (my $ sbjct = $ bplite_report-> nextsbjct) {print $ sbjct-> name, "n"; while (my $ hsp = $ sbjct-> nexthsp) {print "t e-value", $ hsp-> p,} Àμâ "n"; }ÀÌ °³Ã¼¸¦ »ç¿ëÇϸé BLAST ÆÄÀÏ (¶Ç´Â ÆÄÀÏ)¿¡ À妽º¸¦ ÀÛ¼ºÇÏ°í ÇØ´ç °¡ÀÔ¿¡ ´ëÇÑ BLAST º¸°í¼­¿¡ ºü¸£°Ô ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. Âü°í : ÃÖ»óÀÇ °á°ú¸¦ À§ÇØ '»ç¿ëÇϽʽÿÀ'. ¿ä±¸ »çÇ× : ¡¤ Perl.


¹ÙÀÌ¿À :: »öÀÎ :: Æø¹ß °ü·Ã ¼ÒÇÁÆ®¿þ¾î