ÃÑ 327ÆäÀÌÁö

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

À§ÇèÆò°¡¸¦ À§ÇÑ Á¤·®Æò°¡¹ý ¼Ò°³ - RÀ» ÀÌ¿ëÇÑ À̷аú ½Ç½À
CODE
CODE
#»çÀüÈ®·ü
install.packages('mc2d')
unprior
library(mc2d)
1000
#»çÀüÈ®·ü
a
inprior
nprior))
a
b
prior))
c
b
d
c
e
d
#»çÈÄÈ®·ü
e
posterior
#»çÈÄÈ®·ü
#´©ÀûºÐÆ÷ÇÔ¼ö±×·¡ÇÁ±×¸®±â
posterior
plot(ecdf(posterior),xlim=c(0,0.2))
#´©ÀûºÐÆ÷ÇÔ¼ö±×·¡ÇÁ±×¸®±â
plot(ecdf(posterior),xlim=c(0,0.1))
(a)
(b)
±×¸² 4-9 °è±º¿¡¼­ ºÒÈ®½Ç¼º ¸ð¼öÀÎ °¨¿°ÀÇ À¯º´·ü p¿¡ ´ëÇÑ ´©ÀûºÐÆ÷. Bayesian Ãß·Ð
(Ç¥ 4-9)°ú Bayesian ¸ðÀǽÇÇè (Ç¥ 4-10)À» ÅëÇÏ¿© ¾òÀ½. °è±ºÅ©±â M=1000,
°Ë»ç ¼ö¼ö n=30, ¹Î°¨µµ Se=80%, ƯÀ̵µ Sp=98%.
(a) Uninformed prior (b)informed prior.
252

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



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