ÃÑ 327ÆäÀÌÁö
188ÆäÀÌÁö º»¹®½ÃÀÛ
![](https://ebook.qia.go.kr/file/20210504_091746/page/1/188_1620088423_6746/M.jpg)
¥±. À§ÇèºÐ¼®ÀÇ Åë°èÀû ÀÌ·Ð
CODE
x
df
#ggplotÀ»ÀÌ¿ëÇÏ¿©¹ÐµµÇÔ¼ö±×·¡ÇÁ±×¸®±â
ggplot(data=df)+
stat_density(mapping=aes(x=x,fill=x),position="identity",alpha=0.5)+
geom_vline(aes(xintercept=0),colour="red",linetype="dashed")+
geom_vline(aes(xintercept=28),colour="red",linetype="dashed")+
ggtitle("NegBin(1,0.1)")+theme(plot.title=element_text(hjust=0.5))+
ylab("")+xlab("")+scale_x_continuous(limits=c(-5,45))
±×¸² 3-12 Áúº´ÀÇ À¯º´·üÀÌ 10%ÀÎ ¾î´À ¿ì±º¿¡¼ ¼±¹ßµÈ °¨¿°µÇÁö ¾ÊÀº µ¿¹°ÀÇ
¼ö¿¡ ´ëÇÑ Negative binomial ºÐÆ÷ [É®?????ÉåÉÕÉóÉÞÉôÉÕÉæ]
3.1.2.3.1»ç°ÇÀÌƯÁ¤ÇÑȽ¼ö¸¸Å¹ß»ýÇϱâ±îÁöÇÊ¿äÇѽÃÇàȽ¼öÃßÁ¤
Geometric(p) ºÐÆ÷´Â ù ¹ø°ÀÇ ¼º°øÀ» °üÂûÇϱâ ÀÌÀü¿¡ ¼öÇàµÇ¾î¾ßÇÒ ½ÇÆÐÇÒ ½ÃÇàÀÇ
Ƚ¼ö¸¦ ÃßÁ¤ÇÑ´Ù. Áï, ù ¹ø° ¼º°øÀÌ ³ªÅ¸³ª±â ÀÌÀü¿¡ ¼º°øÇÏÁö ¸øÇÒ ½ÃÇàÀÇ ¼ö¿¡ ´ëÇÑ
ºÐÆ÷ÀÌ´Ù. µû¶ó¼ ¾î¶² »ç°ÇÀÇ Ã¹ ¹ø° ¹ß»ý¿¡ ÇÊ¿äÇÑ ½ÃÇàÀÇ È½¼ö´Â ´ÙÀ½°ú °°´Ù.
ÉÕÉéɧ????????Éå?Éæ
Negative_Binomial(s,p) ºÐÆ÷´Â sȸÀÇ ¼º°øÀÌ ¹ß»ýÇϱâ ÀÌÀü¿¡ ¼öÇàµÇ¾î¾ßÇÒ ¼º°øÇÏÁö
¸øÇÒ ½ÃÇàÀÇ È½¼ö¸¦ ÃßÁ¤ÇÑ´Ù. µû¶ó¼ Geometric ºÐÆ÷¿¡¼¿Í ¸¶Âù°¡Áö·Î, ¾î¶² »ç°ÇÀÇ
sȸ ¹ß»ý¿¡ ÇÊ¿äÇÑ ½ÃÇàÀÇ ÃÑ ¼ö´Â s+Negative_Binomial(s,p) ÀÌ µÈ´Ù.
¿¹: ¾î´À ¼öÀÇ»ç´Â ¸Å 11µÎÀÇ µÅÁö¸¶´Ù Æò±ÕÀûÀ¸·Î 1µÎ°¡ ƯÁ¤ÇÑ Áúº´¿¡ °¨¿°µÇ¾î ÀÖÀ»
°ÍÀ¸·Î ÃßÁ¤ÇÏ°í ÀÖ´Ù. 1µÎÀÇ °¨¿°µÈ µÅÁö¸¦ °ËÃâÇϱâ ÀÌÀü¿¡ °Ë»çÇؾßÇÒ µÅÁö µÎ¼ö´Â ¸î
µÎÀÌ°í, 25µÎÀÇ °¨¿°µÈ µÅÁö¸¦ °ËÃâÇϱâ À§Çؼ´Â ¸î µÎÀÇ µÅÁö¸¦ °Ë»çÇØ¾ß Çϴ°¡?
173
CODE
x
df
#ggplotÀ»ÀÌ¿ëÇÏ¿©¹ÐµµÇÔ¼ö±×·¡ÇÁ±×¸®±â
ggplot(data=df)+
stat_density(mapping=aes(x=x,fill=x),position="identity",alpha=0.5)+
geom_vline(aes(xintercept=0),colour="red",linetype="dashed")+
geom_vline(aes(xintercept=28),colour="red",linetype="dashed")+
ggtitle("NegBin(1,0.1)")+theme(plot.title=element_text(hjust=0.5))+
ylab("")+xlab("")+scale_x_continuous(limits=c(-5,45))
±×¸² 3-12 Áúº´ÀÇ À¯º´·üÀÌ 10%ÀÎ ¾î´À ¿ì±º¿¡¼ ¼±¹ßµÈ °¨¿°µÇÁö ¾ÊÀº µ¿¹°ÀÇ
¼ö¿¡ ´ëÇÑ Negative binomial ºÐÆ÷ [É®?????ÉåÉÕÉóÉÞÉôÉÕÉæ]
3.1.2.3.1»ç°ÇÀÌƯÁ¤ÇÑȽ¼ö¸¸Å¹ß»ýÇϱâ±îÁöÇÊ¿äÇѽÃÇàȽ¼öÃßÁ¤
Geometric(p) ºÐÆ÷´Â ù ¹ø°ÀÇ ¼º°øÀ» °üÂûÇϱâ ÀÌÀü¿¡ ¼öÇàµÇ¾î¾ßÇÒ ½ÇÆÐÇÒ ½ÃÇàÀÇ
Ƚ¼ö¸¦ ÃßÁ¤ÇÑ´Ù. Áï, ù ¹ø° ¼º°øÀÌ ³ªÅ¸³ª±â ÀÌÀü¿¡ ¼º°øÇÏÁö ¸øÇÒ ½ÃÇàÀÇ ¼ö¿¡ ´ëÇÑ
ºÐÆ÷ÀÌ´Ù. µû¶ó¼ ¾î¶² »ç°ÇÀÇ Ã¹ ¹ø° ¹ß»ý¿¡ ÇÊ¿äÇÑ ½ÃÇàÀÇ È½¼ö´Â ´ÙÀ½°ú °°´Ù.
ÉÕÉéɧ????????Éå?Éæ
Negative_Binomial(s,p) ºÐÆ÷´Â sȸÀÇ ¼º°øÀÌ ¹ß»ýÇϱâ ÀÌÀü¿¡ ¼öÇàµÇ¾î¾ßÇÒ ¼º°øÇÏÁö
¸øÇÒ ½ÃÇàÀÇ È½¼ö¸¦ ÃßÁ¤ÇÑ´Ù. µû¶ó¼ Geometric ºÐÆ÷¿¡¼¿Í ¸¶Âù°¡Áö·Î, ¾î¶² »ç°ÇÀÇ
sȸ ¹ß»ý¿¡ ÇÊ¿äÇÑ ½ÃÇàÀÇ ÃÑ ¼ö´Â s+Negative_Binomial(s,p) ÀÌ µÈ´Ù.
¿¹: ¾î´À ¼öÀÇ»ç´Â ¸Å 11µÎÀÇ µÅÁö¸¶´Ù Æò±ÕÀûÀ¸·Î 1µÎ°¡ ƯÁ¤ÇÑ Áúº´¿¡ °¨¿°µÇ¾î ÀÖÀ»
°ÍÀ¸·Î ÃßÁ¤ÇÏ°í ÀÖ´Ù. 1µÎÀÇ °¨¿°µÈ µÅÁö¸¦ °ËÃâÇϱâ ÀÌÀü¿¡ °Ë»çÇؾßÇÒ µÅÁö µÎ¼ö´Â ¸î
µÎÀÌ°í, 25µÎÀÇ °¨¿°µÈ µÅÁö¸¦ °ËÃâÇϱâ À§Çؼ´Â ¸î µÎÀÇ µÅÁö¸¦ °Ë»çÇØ¾ß Çϴ°¡?
173
188ÆäÀÌÁö º»¹®³¡
¸Þ´º
ÇöÀç Æ÷Ä¿½ºÀÇ ¾Æ·¡³»¿ëµéÀº µ¿ÀÏÇÑ ÄÁÅÙÃ÷¸¦ °¡Áö°í ÆäÀÌÁö³Ñ±è È¿°ú¹× ½Ã°¢Àû È¿°ú¸¦ Á¦°øÇÏ´Â ÆäÀÌÁöÀ̹ǷΠ½ºÅ©¸°¸®´õ »ç¿ëÀÚ´Â ¿©±â±îÁö¸¸ ³¶µ¶ÇϽðí À§ÀÇ ÆäÀÌÁöÀ̵¿ ¸µÅ©¸¦ »ç¿ëÇÏ¿© ´ÙÀ½ÆäÀÌÁö·Î À̵¿ÇϽñ⠹ٶø´Ï´Ù.