ÃÑ 327ÆäÀÌÁö

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

À§ÇèÆò°¡¸¦ À§ÇÑ Á¤·®Æò°¡¹ý ¼Ò°³ - RÀ» ÀÌ¿ëÇÑ À̷аú ½Ç½À
Mean=42.0033
CODE
install.packages(¡°ggplot2¡±)
library(ggplot2)
x
y
df
#ggplotÇÔ¼ö¸¦ÀÌ¿ëÇÏ¿©¸·´ë±×·¡ÇÁ±×¸®±â
ggplot(data=df,aes(x=x,y=y)+
geom_bar(stat=¡°identity¡±)+
geom_vline(aes(xintercept=1.45),colour=¡°red¡±,linetype=¡°dashed¡±)+
geom_vline(aes(xintercept=75.2),colour=¡°red¡±,linetype=¡°dashed¡±)+
scale_x_continuous(limits=c(-50,150))+
scale_y_continuous(limits=c(0,0.020))+
ggtitle(¡°DistributionforLogDose/Prob/B8¡±)+
theme(plot.title=element_text(hjust=0.5))+
ylab(¡°¡±)+xlab(¡°¡±)
±×¸² 1-6 Æø·ÎÆò°¡¿¡¼­ ¼ÒºñÀÚ°¡ ¼·ÃëÇÏ´Â º´¿øüÀÇ ³óµµ¿¡ ´ëÇÑ ¸ðÀǽÃÇè °á°ú
1.5 Monte-Carlo ¸ðÀǽÃÇè
È®·üºÐÆ÷·ÎºÎÅÍ Ç¥º»°ªÀ» ÃßÃâÇÏ´Â ¹æ¹ýÀ¸·Î´Â Monte Carlo (MC) sampling ȤÀº
Latin Hypercube samplingÀÌ °¡Àå ÈçÈ÷ »ç¿ëµÈ´Ù. MC ¹æ¹ýÀº ÀüüºÐÆ÷·ÎºÎÅÍ ´Ü¼ø
¹«ÀÛÀ§ ÃßÃâ¿¡ ±Ù°ÅÇÏ¿© ¹Ýº¹ÀûÀ¸·Î Ç¥º»ÃßÃâÇÏ¸ç º¹¿øÃßÃâÀ̹ǷΠµ¿ÀÏÇÑ °ªÀÌ 1ȸ ÀÌ»ó
ÃßÃâµÉ ¼ö ÀÖ´Ù. ¹Ý¸é¿¡ Latin Hypercube Ç¥º»ÃßÃâÀº ¹Ýº¹ÀÌ ¾ø´Â ÃþÈ­ÃßÃâ¹ýÀÌ´Ù. Áï
ºÐÆ÷ÀÇ ¹üÀ§¸¦ ¹Ýº¹ÀÇ È¸¼ö¿Í µ¿ÀÏÇÑ ¸¹Àº ±¸°£À¸·Î ±¸ºÐÇÑ ´ÙÀ½ °¢ ±¸°£ ³»¿¡¼­ ´Ü¼ø ¹«ÀÛÀ§
ÃßÃâÀ» Àû¿ëÇÑ´Ù. °¢ ±¸°£Àº ¸ðÀǽÇÇè µ¿¾È ´Ü 1ȸ¸¸ ¼±ÅõǹǷΠÀÌ ¹æ¹ýÀº ºÐÆ÷ÀÇ Àüü¹üÀ§
112

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



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