ÃÑ 327ÆäÀÌÁö

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

À§ÇèÆò°¡¸¦ À§ÇÑ Á¤·®Æò°¡¹ý ¼Ò°³ - RÀ» ÀÌ¿ëÇÑ À̷аú ½Ç½À
3.2.2.3ExponentialºÐÆ÷
(a) ´ÙÀ½ »ç°Ç±îÁöÀÇ ½Ã°£ ÃßÁ¤
ÉèExp??ÉåþáÉæÉè?????ÉåÉÕÉóþáÉæ
?
ÉèÉ¥????ÉåÉÕÉóÉÕÉõþêÉæ ¶Ç´Â
?
????
????
Áö¼öºÐÆ÷¿Í °¨¸¶ºÐÆ÷´Â ´ÙÀ½ »ç°Ç±îÁöÀÇ ½Ã°£ (»ç°Ç ¹ß»ý°£ ½Ã°£)¿¡ ´ëÇÑ º¯µ¿À»
¸ðÇüÈ­Çϴµ¥ »ç¿ëÇÒ ¼ö ÀÖ´Ù. É¥????ÉåþáÉæ ´Â »ç°ÇÀÇ ¼ö x°¡ 1ÀÏ ¶§ ɧ????Éå?ÉóþáÉæ ¿Í
µ¿ÀÏÇÏ´Ù. ¿¹¸¦ µé¾î Æ÷¾Æ½¼ °úÁ¤À» °¡Á¤ÇÒ ¼ö ÀÖ°í ƯÁ¤ÇÑ Áúº´ÀÇ ¹ß»ý°£ Æò±Õ ±¸°£ÀÌ
24°³¿ùÀ̶ó¸é ´ÙÀ½ »ç°Ç ¹ß»ýÀ» ±â´ëÇϱâ ÀÌÀü¿¡ ¾î´À Á¤µµÀÇ ±â°£ÀÌ ¿ä±¸µÇ´ÂÁö¿¡ ´ëÇÑ
ºÐÆ÷¸¦ ÃßÁ¤ÇÒ ¼ö ÀÖ´Ù. (±×¸² 3-19)
CODE
CODE
x
x
df
df
#yÃà¶óº§À»À§ÇÑÇÔ¼ö»ý¼º
#yÃà¶óº§À»À§ÇÑÇÔ¼ö»ý¼º
fy
fy
#ggplotÀ»ÀÌ¿ëÇعеµÇÔ¼ö±×·¡ÇÁ±×¸®±â
#ggplotÀ»ÀÌ¿ëÇعеµÇÔ¼ö±×·¡ÇÁ±×¸®±â
ggplot(data=df)+
ggplot(data=df)+
stat_density(mapping=aes(x=x,fill=x),
stat_density(mapping=aes(x=x,
fill=x),
position="identity",alpha=0.5)+
position="identity",alpha=0.5)+
ggtitle("Expon(24)")+
ggtitle("Gamma(1,24)")+
theme(plot.title=element_text(hjust=0.5))+
theme(plot.title=element_text(hjust=0.5))+
xlab("")+ylab("valuesx10^-")+
xlab("")+ylab("valuesx10^-")+
scale_y_continuous(labels=fy)+
scale_y_continuous(labels=fy)+
scale_x_continuous(limits=c(-20,120))
scale_x_continuous(limits=c(-20,120))
(a)
(b)
±×¸² 3-19 »ç°Ç ¹ß»ý °£ Æò±Õ ±¸°£ÀÌ þá=24 °³¿ùÀÏ ¶§ ´ÙÀ½ Áúº´ÀÌ ¹ß»ýÇϱâ±îÁöÀÇ
½Ã°£¿¡ ´ëÇÑ ºÐÆ÷.
(a) ?
ÉèÉ¥????ÉåÉÖÉØÉæÉó Éå?Éæ ?
Éèɧ????ÉåÉÕÉóÉÖÉØÉæ
????
????
182

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



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