ÃÑ 327ÆäÀÌÁö

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

¥±. À§ÇèºÐ¼®ÀÇ Åë°èÀû ÀÌ·Ð
þ°
Æò±ÕÀÇ Ç¥º»ºÐÆ÷¿¡ ´ëÇÑ Ç¥ÁØÆíÂ÷, ?ÉõÉý
?´Â ÈçÈ÷ Æò±ÕÀÇ Ç¥ÁØ¿ÀÂ÷¸¦ ÀǹÌÇÑ´Ù. ÀÌ´Â
´Ù¾çÇÑ Ç¥º»Å©±â nÀ¸·ÎºÎÅÍ ±â´ëÇÒ ¼ö ÀÖ´Â Æò±ÕÀÇ Å©±â¸¦ ÃøÁ¤Çϴµ¥ »ç¿ëµÉ ¼ö ÀÖ´Ù.
CODE
x
df
fy
#ggplotÇÔ¼ö¸¦ÀÌ¿ëÇÏ¿©¹ÐµµÇÔ¼ö±×·¡ÇÁ±×¸®±â
ggplot(data=df)+
stat_density(mapping=aes(x=x,fill=x),position="identity",alpha=0.5)+
geom_vline(aes(xintercept=82.9),colour="red",linetype="dashed")+
geom_vline(aes(xintercept=125),colour="red",linetype="dashed")+
ggtitle("Pert(80,90,160)")+
theme(plot.title=element_text(hjust=0.5))+
ylab("Valuesx10^-")+xlab("") +
scale_y_continuous(labels=fy)
±×¸² 2-11 ±×¸² 2-10ÀÇ ¿øÀÚ·á ºÐÆ÷ [RiskPert(80,90,160)]
þ°
þ°
¾î´À ¸ðÁý´ÜÀ¸·ÎºÎÅÍ Å©±â°¡ nÀΠǥº»ÀÇ Æò±ÕÀº
?Éè É®?????ÉåþëÉóþñÉõÉý
?Éæ À̹ǷΠn°³ÀÇ
µ¶¸³ÀûÀÎ °¢ Ç¥º»µéÀÇ ÇÕÀÌ ºÐÆ÷´Â nÀ» °öÇÏ¿© ¾ò´Â´Ù. Áï
þª?
þ°
þ°
?ÉèÉ®?????Éå?þëÉóþñÉý
Éè?
?Éæ
-------- (°ø½Ä15)
?
2.4.2.3¸ðÁý´ÜÆò±Õ°ú¸ðÁý´ÜÇ¥ÁØÆíÂ÷¸¦¾Ë¶§
¾î¶² °æ¿ì ¸ðÁý´ÜÀÇ Æò±Õ°ú Ç¥ÁØÆíÂ÷°¡ ¾Ë·ÁÁ® ÀÖ´Ù°í °¡Á¤ÇÒ ¼ö ÀÖ´Ù. ¿¹¸¦ µé¾î ÃæºÐÇÑ
¾çÀÇ ´ëÇ¥¼ºÀ» Áö´Ñ ÀڷḦ °¡Áö°í ÀÖ´Ù¸é ºÐÆ÷ÀÇ ¸ð¼ö¸¦ ÃßÁ¤ÇÒ ¼ö ÀÖ´Ù. ¾Õ Àý¿¡¼­ µµÃ¼¿¡¼­
»À¸¦ Á¦°ÅÇÑ °í±âÀÇ ¹«°Ô¿¡ ´ëÇÑ ¿¹¿¡¼­ Pert(80,90,160) ºÐÆ÷¸¦ »ç¿ëÇÏ¿´´Âµ¥ ÀÌ´Â
¹ß°ñÀ°ÀÇ ¹«°Ô¸¦ ºñ±³Àû Á¤È®ÇÏ°Ô ¾Ë°í ÀÖ´Ù°í °¡Á¤ÇÑ °ÍÀÌ´Ù. ¿¹¸¦ µé¾î ¹ß°ñÀ° ¹«°Ô (kg)ÀÇ
143

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



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