ÃÑ 327ÆäÀÌÁö

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

À§ÇèÆò°¡¸¦ À§ÇÑ Á¤·®Æò°¡¹ý ¼Ò°³ - RÀ» ÀÌ¿ëÇÑ À̷аú ½Ç½À
þñ
þ°
?ÉèÉ®?????ÉåþëÉó
Éæ ------------ (°ø½Ä14)
þ°
þ°
Éý
?
±×¸² 2-10¿¡¼­ ¾Ë ¼ö ÀÖµíÀÌ Ç¥º»Å©±â°¡ ÀÛÀº °æ¿ì¿¡´Â ÁÁÀº ±Ù»çÄ¡¸¦ Á¦°øÇØÁÖÁö ¸øÇÑ´Ù.
Á߽ɱØÇÑÁ¤¸®´Â Ç¥º»ÀÇ ÃßÃâµÈ ºÐÆ÷ÀÇ ¸ð¾ç¿¡ Á¿ìµÇÁö ¾Ê´Â´Ù´Â »ç½ÇÀº ±×¸² 2-11¿¡¼­
º¸¿©ÁÖ°í ÀÖ´Ù. ÀÌ ±×¸²Àº ¹ß°ñÀ° ¹«°Ô¿¡ ´ëÇÑ ¿øÀÚ·á(raw data)ÀÇ ºÐÆ÷´Ù.
CODE
#rpert()ÇÔ¼ö¸¦ÀÌ¿ëÇÏ¿©4°³ÀǹеµÇÔ¼ö±×·¡ÇÁ°ãÃı׸®±â
plot(density(rpert(50, 80, 120, 160)), xlim=c(80, 160), ylim=c(0, 0.05),
lty=2,xlab="Weight",ylab="pdf")
par(new=TRUE)
plot(density(rpert(100, 80, 120, 160)), xlim=c(80, 160), ylim=c(0, 0.05),
lty=3,xlab="Weight",ylab="pdf")
par(new=TRUE)
plot(density(rpert(250, 80, 120, 160)), xlim=c(80, 160), ylim=c(0, 0.05),
lty=4,xlab="Weight",ylab="pdf")
par(new=TRUE)
plot(density(rpert(1000, 80, 120, 160)), xlim=c(80, 160), ylim=c(0, 0.05),
xlab="Weight",ylab="pdf")
±×¸² 2-10 pert(80, 120 160) ºÐÆ÷¿¡¼­ ´Ù¾çÇÑ Å©±âÀÇ Ç¥º»ÃßÃâ¿¡ ´ëÇÑ
Ç¥º»ºÐÆ÷. pdf-probability density function)
142

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



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