ÃÑ 327ÆäÀÌÁö

189ÆäÀÌÁö º»¹®½ÃÀÛ

À§ÇèÆò°¡¸¦ À§ÇÑ Á¤·®Æò°¡¹ý ¼Ò°³ - RÀ» ÀÌ¿ëÇÑ À̷аú ½Ç½À
Áúº´ÀÇ À¯º´·üÀº p=1/11=0.091ÀÌ´Ù. 1µÎÀÇ °¨¿°µÈ µÅÁö¸¦ °ËÃâÇϱâ ÀÌÀü¿¡ °Ë»çÇؾßÇÒ
µÎ¼ö (É®
)´Â ´ÙÀ½°ú °°ÀÌ ÃßÁ¤µÈ´Ù.
ÉÕ
É®
Éè ÉÕÉéɧ????????ÉåÉÞÉôÉÞÉÝÉÕÉæ
ÉÕ
25µÎÀÇ °¨¿°µÈ µÅÁö¸¦ °ËÃâÇϱâ ÀÌÀü¿¡ °Ë»çÇؾßÇÒ µÎ¼ö (É®
)´Â ´ÙÀ½°ú °°´Ù.
ÉÖÉÙ
N
=25+Ngative_Binomial(25,0.091)
ÉÖÉÙ
±×·¯³ª ¸¶Áö¸· ½ÃÇàÀÇ °á°ú°¡ ¼º°øÀ̾ú´ÂÁö´Â ÈçÈ÷ ¾ËÁö ¸øÇÑ´Ù. ¿¹¸¦ µé¾î, ƯÁ¤ÇÑ Áúº´¿¡
´ëÇÏ¿© 1000¼öÀÇ ´ß °è±ºÀ» °Ë»çÇÏ¿© 24¼öÀÇ °¨¿°µÈ ´ßÀ» È®ÀÎÇÏ¿´´Ù. ¹Î°¨µµ°¡ 75%¶ó°í
ÇÏÀÚ. ½ÇÁ¦·Î °¨¿°µÇ¾î ÀÖ´Â »ó´ç¼öÀÇ ´ßÀ» °ËÃâÇϴµ¥ ½ÇÆÐÇÒ °ÍÀÌ´Ù. Áï °¡Àå ÃÖ¼±ÀÇ
ÃßÁ¤Ä¡´Â 8¼ö¸¦ ³õÄ¡´Â °æ¿ìÀÌ´Ù. ±×·¯³ª ÃßÁ¤Ä¡ÀÇ Á¤È®¼ºÀ» ³ôÀ̱â À§Çؼ­
Ngative_Binomial ºÐÆ÷¸¦ »ç¿ëÇÒ ¼ö ÀÖ´Ù. °ËÃâÇÏÁö ¸øÇÑ °¨¿°µÈ ´ßÀÇ ¼ö (N)¿¡ ´ëÇÏ¿©
¸ðÇüÈ­Çϱâ À§Çؼ­´Â ´ÙÀ½°ú °°Àº ¸ðÇüÀ» »ç¿ëÇÒ ¼ö ÀÖ´Ù.
N=Ngative_Binomial(24,75%)
±×·¯³ª ÀÌ´Â ¸¶Áö¸·À¸·Î °¨¿°µÈ ´ßÀÌ °ËÃâµÇ¾ú´Ù°í (Áï ¸¶Áö¸· ½ÃÇàÀÌ ¼º°øÀ̾úÀ½)
°¡Á¤ÇÏ´Â °ÍÀÌ´Ù. ¹Ý¸é¿¡ °Ë»ç¹ÞÀº ¸¶Áö¸· ÀϺΠ°¨¿°µÈ ´ßÀÌ °ËÃâµÇÁö ¾Ê¾ÒÀ» ¼öµµ Àִµ¥
ÀÌ °æ¿ì ½ÇÆаǼö´Â Ngative_Binomial(s+1,p) ÀÌ µÈ´Ù. µû¶ó¼­ À§ÀÇ ¿¹´Â ´ÙÀ½ÀÇ ºÐÆ÷¸¦
»ç¿ëÇÒ ¼ö ÀÖ´Ù. (±×¸² 3-13).
N=Ngative_Binomial(25,75%)
CODE
#º¯¼ö¿¡°ª°únameÇÒ´ç
x
names(x)
#¸·´ë±×·¡ÇÁ±×¸®±â
barplot(dnbinom(x,25,0.75),
ylim=c(0,0.14),main="NegBin(25,0.75)")
±×¸² 3-13 Negative binomial ºÐÆ÷ [Ngative_Binomial(25,0.091)]
174

189ÆäÀÌÁö º»¹®³¡



ÇöÀç Æ÷Ä¿½ºÀÇ ¾Æ·¡³»¿ëµéÀº µ¿ÀÏÇÑ ÄÁÅÙÃ÷¸¦ °¡Áö°í ÆäÀÌÁö³Ñ±è È¿°ú¹× ½Ã°¢Àû È¿°ú¸¦ Á¦°øÇÏ´Â ÆäÀÌÁöÀ̹ǷΠ½ºÅ©¸°¸®´õ »ç¿ëÀÚ´Â ¿©±â±îÁö¸¸ ³¶µ¶ÇϽðí À§ÀÇ ÆäÀÌÁöÀ̵¿ ¸µÅ©¸¦ »ç¿ëÇÏ¿© ´ÙÀ½ÆäÀÌÁö·Î À̵¿ÇϽñ⠹ٶø´Ï´Ù.
»ó´Ü¸Þ´º ¹Ù·Î°¡±â ´ÜÃàÅ°¾È³» : ÀÌÀüÆäÀÌÁö´Â ÁÂÃø¹æÇâÅ°, ´ÙÀ½ÆäÀÌÁö´Â ¿ìÃø¹æÇâÅ°, ùÆäÀÌÁö´Â »ó´Ü¹æÇâÅ°, ¸¶Áö¸·ÆäÀÌÁö´Â ÇϴܹæÇâÅ°, ÁÂÃøÈ®´ëÃà¼Ò´Â insertÅ°, ¿ìÃøÈ®´ëÃà¼Ò´Â deleteÅ°