| Åë°è :: ´ÙÁß Å×½ºÆ® ¿©·¯ Å×½ºÆ® ¹®Á¦¿¡¼ À߸øµÈ °Ë»ö ¼Óµµ Á¦¾î |
Áö±Ý ´Ù¿î·Îµå |
Åë°è :: ´ÙÁß Å×½ºÆ® ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jokergoo/
Åë°è :: ´ÙÁß Å×½ºÆ® ű×
Åë°è :: ´ÙÁß Å×½ºÆ® ¼³¸í
Åë°è :: ´ÙÁß Å×½ºÆ®´Â ¿©·¯ Å×½ºÆ® ¹®Á¦¿¡¼ À߸øµÈ °Ë»ö ¼Óµµ¸¦ Á¦¾îÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Åë°è Å×½ºÆ®, p °ªÀº À߸øµÈ ±àÁ¤ÀÇ È®·üÀÔ´Ï´Ù. µ¿½Ã¿¡ Å×½ºÆ®ÇÏ´Â µ¥ ¸¹Àº °¡¼³ÀÌ ¸¹ÀÌ ÀÖÁö¸¸ Àû¾îµµ ÇϳªÀÇ °ÅÁþ ±àÁ¤Àû ÀÎ È®·üÀÌ Ä¿Áú È®·üÀÌ Ä¿Áý´Ï´Ù. µû¶ó¼ ¿øÁ¡ P °ªÀº °ÅÁþ ¹ß°ß À²À» ³·Ãß±â À§ÇØ Á¶Á¤µÇ¾î¾ßÇÕ´Ï´Ù. ¸Þ¼ÒµåÀÇ À̸§Àº R. ÄÚµåÀÇ STAT ÆÐÅ°Áö¿¡¼ p.adjust¿¡¼ ÆÄ»ýµË´Ï´Ù. list :: Vectorize module.all 6 ¼ºê ·çƾÀ» »ç¿ëÇÏ¿© rl¿¡¼ perl¿¡¼ perlÀ» »ç¿ëÇÏ¿© ¹è¿ ÂüÁ¶ ¶Ç´Â Çؽà ÂüÁ¶ ÀÏ ¼öÀÖ´Â ÇϳªÀÇ Àμö¸¦ ¼ö½ÅÇÕ´Ï´Ù. ¹× »ó±â Á¶Á¤ µÈ P °ªÀ» ÇØ´ç µ¥ÀÌÅÍ ±¸Á¶·Î µÇµ¹¸³´Ï´Ù. ¾î·¹ÀÌÀÇ Ç׸ñÀÇ ¼ø¼´Â Á¶Á¤ ÈÄ¿¡ º¯°æµÇÁö ¾Ê½À´Ï´Ù. ½Ä ³ëÇÁ°¡ »ç¿ë Åë°è :: ´ÙÁß QW (Bonferroni Holm Hommel Hochberg BH·Î); Åë°è¸¦ »ç¿ëÇϽʽÿÀ :: ´ÙÁß QW (: ¸ðµÎ); ¾ö°ÝÇÑ »ç¿ë; ³» $ p; # p-values´Â ÂüÁ¶ $ P = À» ÂüÁ¶ÇÏ¿© ¹è¿¿¡ ÀúÀåÇÒ ¼ö ÀÖ½À´Ï´Ù. # @ $ res´Â @ $ p°¡ °°Àº ¼ø¼¸¦ °¡Áö°í ÀÖ½À´Ï´Ù. MY $ RES = BH ($ P); Àμ⠰¡ÀÔ "\ n", @ $ res; # p-values´Â $ p = { ""=> 0.01, "b"0.02, "c"=> 0.05, "d"=> 0.41, "e"=> 0.16, "f"=> 0.51}; # $ RES´Â $ P $ RES = HOLM ($ P)°ú µ¿ÀÏÇÑ Çؽà ÂüÁ¶À̱⵵ÇÕ´Ï´Ù. foreach (sort {$ res -> {a} $ res -> {$ b}} Å° % $ res) {$ _ $ _ => $ res -> {$ _} \ n "; } Á¦Ç°ÀÇ È¨ÆäÀÌÁö
Åë°è :: ´ÙÁß Å×½ºÆ® °ü·Ã ¼ÒÇÁÆ®¿þ¾î