ÃÑ 327ÆäÀÌÁö

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

À§ÇèÆò°¡¸¦ À§ÇÑ Á¤·®Æò°¡¹ý ¼Ò°³ - RÀ» ÀÌ¿ëÇÑ À̷аú ½Ç½À
äÅÃÇÑ´Ù¸é þê´Â ¹«ÇÑÇÑ ±¸°£¿¡ °ÉÃÄ °üÂûÇÏÁö ¾Ê´Â ÇÑ ½ÇÁ¦·Î °üÂûµÉ ¼ö ¾ø´Ù. ±×·¯³ª ´õ
¸¹Àº ÀڷḦ ¼öÁýÇÔÀ¸·Î½á Âü°ª¿¡ ´ëÇÑ È®½ÅÀ» Çâ»ó½Ãų ¼ö ÀÖ´Ù. ¿¹¸¦ µé¾î 18°³¿ù µ¿¾È
3ȸÀÇ Áúº´ÀÌ ¹ß»ýÇÏ¿´´Ù¸é ¿ù°£ Æò±Õ Áúº´¹ß»ý °Ç¼ö´Â Æ÷¾Æ½¼ °úÁ¤À» Àû¿ëÇÒ ¼ö ÀÖ´Ù°í
°¡Á¤ÇÒ ¶§ 0.17·Î ÃßÁ¤ÇÒ ¼ö ÀÖ´Ù. Áï °üÂû±â°£ µ¿¾È Áúº´¹ß»ýÀÌ ¿¬¼ÓÀûÀÌ°í ÀÏÁ¤ÇÏ¸ç °üÂûµÈ
Áúº´¹ß»ýÀÌ µ¶¸³ÀûÀΰ¡? ¸¸ÀÏ Æ÷¾Æ½¼ °úÁ¤ÀÌ Àû¿ëµÉ ¼ö ÀÖ´Ù¸é ÀÌ ÃßÁ¤Ä¡°¡ ÀûÀýÇÏ´Ù´Â
°ÍÀ» ¾î´À Á¤µµ È®½ÅÇÒ ¼ö Àִ°¡? ±×¸² 3-17¿¡ Á¦½ÃµÇ¾î ÀÖµíÀÌ ¸ð¼ö þê¿¡ ´ëÇÑ ºÒÈ®½Ç¼ºÀ»
¸ðÇüÈ­Çϴµ¥ °¨¸¶ºÐÆ÷¸¦ »ç¿ëÇÒ ¼ö ÀÖ´Ù. °üÂû±â°£À» È®ÀåÇÏ¿© 42°³¿ù µ¿¾È 7°ÇÀÇ Áúº´ÀÌ
¹ß»ýÇÏ¿´´Ù¸é ¿ù°£ Æò±Õ Áúº´¹ß»ý °Ç¼öÀÇ Âü°ªÀÌ 0.17À̶ó´Â °ÍÀ» ´õ È®½ÅÇÒ ¼ö ÀÖ´Ù.
CODE
#R¿¡¼­´ÂGamma(x,1/t)°¡¾Æ´Ï¶óGamma(x,t)ÀÇ°ªÀ»³Ö¾î¾ßÇÔ.
#µÎ°³ÀǹеµÇÔ¼ö±×·¡ÇÁ°ãÃı׸®±â
x
plot(density(x),xlim=c(0,0.5),ylim=c(0,7),xlab="Lambda",ylab="Prob.density")
par(new=TRUE)
y
plot(density(y),xlim=c(0,0.5),ylim=c(0,7),xlab="Lambda",ylab="Prob.density",lty=2)
±×¸² 3-17 °üÂûµÈ Áúº´¹ß»ý °Ç¼ö¸¦ x, °üÂû±â°£À» t¶ó°í ÇÒ ¶§ °¨¸¶ºÐÆ÷
ɧ????Éå?ÉóÉÕÉõ?É渦 ÀÌ¿ëÇÏ¿© ¿ù´ç Æò±Õ Áúº´¹ß»ý°Ç¼ö (þê) ÃßÁ¤,
½Ç¼± ɧ????ÉåÉ×ÉóÉÕÉõÉÕÉÜÉæ Á¡¼± ɧ????ÉåÉÛÉóÉÕÉõÉØÉÖÉæ. Æ÷¾Æ½¼°úÁ¤À» °¡Á¤ÇÑ °æ¿ì.
ɧ????Éå?ÉóÉÕÉõ?ÉæºÐÆ÷´Â »ç½Ç Æ÷¾Æ½¼ ¿ìµµÇÔ¼ö¸¦ °®´Â uninform prior¸¦ °¡Á¤ÇÏ¿© ¾òÀº
»çÈĺÐÆ÷°¡ µÈ´Ù. ¸¸ÀÏ prior°¡ ɧ????Éå?Éó?ÉæºÐÆ÷¸¦ °®´Â´Ù°í °¡Á¤ÇÒ ¼ö ÀÖ°í ±¸°£ t¿¡¼­
xȸÀÇ »ç°ÇÀ» °üÂûÇÒ ¼ö ÀÖ´Ù¸é þê¿¡ ´ëÇÑ »çÈÄÈ®·üÀº ´ÙÀ½°ú °°´Ù. ¿©±â¿¡´Â a´Â »ç°ÇÀÇ
¼ö, b´Â »ç°Ç°£ Æò±Õ ±¸°£ÀÌ´Ù.
180

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



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