Bio :: Tree :: ȣȯ °¡´É

BIO :: TREE :: ȣȯ °¡´ÉÀº Áßø µÈ ºÐ·ù±º°ú °èÅë ¹ß»ý ³ª¹«ÀÇ È£È¯¼ºÀ» Å×½ºÆ®ÇϱâÀ§ÇÑ PERL ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Bio :: Tree :: ȣȯ °¡´É ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • bioperl team
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~sendu/bioperl-1.5.2_102/Bio/DB/SeqFeature/Store/DBI/mysql.pm

Bio :: Tree :: ȣȯ °¡´É ű×


Bio :: Tree :: ȣȯ °¡´É ¼³¸í

Bio :: Tree :: ȣȯ °¡´ÉÀº Áßø µÈ ºÐ·ù±º°ú °èÅë ¹ß»ý ³ª¹«ÀÇ È£È¯¼ºÀ» Å×½ºÆ®ÇϱâÀ§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. Bio :: Tree :: ȣȯ °¡´ÉÀº Áßø µÈ Åý÷Π°èÅë ¹ß»ý Æ®¸®ÀÇ È£È¯¼ºÀ» Å×½ºÆ®ÇϱâÀ§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. Synopsis´Â Bio :: Tree :: CompatibleÀ» »ç¿ëÇÕ´Ï´Ù. Bio :: Treeio; MY $ INPUT = NEW BIO :: TREEIO ( '- Çü½Ä'=> 'newick', 'ÆÄÀÏ'=> 'input.tre'); MY $ T1 = $ INPUT-> NEXT_TREE; MY $ T2 = $ INPUT-> NEXT_TREE; My ($ INCOMPAT, $ ILABELS, $ inode) = $ T1-> IS_COMPATIBLE ($ T2); if ($ INCOMPAT) {MY % CLUSTER1 = % {$ T1-> cluster_representation}; ³» % cluster2 = % {$ T2-> cluster_representation}; "ȣȯµÇÁö ¾Ê´Â TRESN"Àμâ; if (scalar (@ $ ilabels)) {foreach my $ label (@ $ ILabels) {my $ node1 = $ t1-> find_node (-id => $ label); ³» $ node2 = $ T2-> find_node (-id => $ label); my @ c1 = @ {$ cluster1 {$ node1}} Á¤·Ä; my @ c2 = @ {$ cluster2 {$ node2}} Á¤·Ä; "¶óº§ $ ·¹À̺í"Àμâ; "Ŭ·¯½ºÅÍ"Àμâ; Áöµµ {print "", $ _} @ c1; "Ŭ·¯½ºÅÍ"Àμâ; Áöµµ {print "", $ _} @ c2; "n"À» ÀμâÇϽʽÿÀ; }} if (scalar (@ $ inodes)) {while (@ $ inodes) {my $ node1 = shift @ $ inodes; MY $ NODE2 = SHIFT @ $ inodes; my @ c1 = @ {$ cluster1 {$ node1}} Á¤·Ä; my @ c2 = @ {$ cluster2 {$ node2}} Á¤·Ä; "Ŭ·¯½ºÅÍ"Àμâ; Áöµµ {print "", $ _} @ c1; "Á¦´ë·Î ±³Â÷ Ŭ·¯½ºÅÍ"Àμâ; Áöµµ {print "", $ _} @ c2; "n"À» ÀμâÇϽʽÿÀ; }}} else {print "ȣȯ treesn"; } Bio :: Tree :: ȣȯ °¡´ÉÀº ¹ÙÀÌ¿À :: Tree :: Tree °´Ã¼·Î Ç¥Çö µÈ Áßø µÈ ºÐ·ù±ºÀ¸·Î °èÅë ¹ß»ý Æ®¸®ÀÇ È£È¯¼ºÀ» Å×½ºÆ®ÇϱâÀ§ÇÑ Perl µµ±¸ÀÔ´Ï´Ù. À̴ Ŭ·¯½ºÅÍ Ç¥ÇöÀÇ °üÁ¡¿¡¼­ ¹Ý Ç¥Áö µÈ ³ª¹«ÀÇ Á¶»ó ȣȯ¼ºÀÇ Ãֱ٠Ư¼ºÈ­¸¦ ±â¹ÝÀ¸·ÎÇÕ´Ï´Ù. ¹Ý Ç¥Áö µÈ ³ª¹«´Â ³»ºÎ ³ëµå Áß ÀϺΰ¡ÀÖ´Â °èÅë ¹ß»ý Æ®¸®ÀÌ¸ç ºÐ·ù Æ®¸®»Ó¸¸ ¾Æ´Ï¶ó ºÐ·ù Æ®¸®¸¦ ³ªÅ¸³¾ ¼ö ÀÖ½À´Ï´Ù. Áßø µÈ ºÐ·ùÀÚ°¡ÀÖ´Â °èÅë ¹ß»ý Æ®¸®´Â ±× ÀÚ¼Õº¸´Ù ´õ ³ôÀº ¼öÁØÀÇ Áý°è ¶Ç´Â Áßøº¸´Ù ³ôÀº ¼öÁØÀÇ ³»ºÎ ³ëµå°¡ÀÖ´Â ·¹À̺íÀÌ ºÙÀº ³»ºÎ ³ëµå°¡ ÀÖÀ¸¸ç, ÀϹÝÀûÀÎ ·¹ÀÌºí¿¡ ´ëÇÑ ÅäÆú·ÎÁö Á¦ÇÑÀÌ °¢ ³ëµå ·¹ÀÌºí¿¡ ´ëÇØ È£È¯ °¡´ÉÇÕ´Ï´Ù. °¢ ³ª¹«¿¡ÀÖ´Â °¡Àå ÀÛÀº Ŭ·¯½ºÅÍ´Â ÀÏÄ¡ÇÏ°í ´Ù¸¥ Æ®¸®ÀÇ Å¬·¯½ºÅÍ°¡ ¿Ã¹Ù¸£°Ô ±³Â÷ÇÕ´Ï´Ù. Bio :: Tree :: CompatibleÀÇ ´Ù¸¥ Tree.Future È®ÀåÀÚ°¡ Á¦´ë·Î ±³Â÷ÇÏÁö ¾Ê½À´Ï´Ù. ¹ÙÀÌ¿À :: Tree :: Supertree Æ÷ÇÔ È£È¯ °¡´ÉÇÑ °èÅë ¹ß»ý ³ª¹«¿Í Áßø µÈ ¼Û·Ú°¡ÀÖ´Â ¸ðµâÀ» ÀϹÝÀûÀÎ ¼öÆÛ Æ®¸®¿¡ °áÇÕÇϱâÀ§ÇÑ ¸ðµâ. ¿ä±¸ »çÇ× : ¡¤ Perl.


Bio :: Tree :: ȣȯ °¡´É °ü·Ã ¼ÒÇÁÆ®¿þ¾î