¸ñÂ÷/Â÷·Ê
¹Ù»Û ÀÏ»ó ¼Ó¿¡¼ ¾çÁúÀÇ ¸®Æ÷Æ®¸¦ ÀÛ¼ºÇϽô µ¥, ½Ã°£°ú ³ë·ÂÀ» ÃÖ¼ÒÈÇÒ ¼ö ÀÖ´Â °úÁ¦¹°·Î ¸®Æ÷Æ® ÀÛ¼º¿¡ Âü°íÇϽþî ÁÁÀº ¼ºÀû ¹ÞÀ¸¼¼¿ä.^^
±ÛÀÚ ¸ð¾ç(¸¼Àº°íµñ, ÀåÆò 100%, Å©±â 11 pt, ÀÚ°£ 0%)
°úÁ¦ ½ºÆ®·¹½º ½Ï~ ÇÐÁ¡ ¾¦!
¸ñÂ÷
1. (±³Àç ¿¬½À¹®Á¦ 1Àå 1¹ø ¹®Á¦)
2. (±³Àç ¿¬½À¹®Á¦ 2Àå 1¹ø ¹®Á¦)
3. Áßȸ±Í¸ðÇüÀ» Çà·Ä-º¤ÅÍ Ç¥±â·Î Ç¥ÇöÇÏ¸é ´ÙÀ½°ú °°´Ù.
4. Âü°í¹®Çå
º»¹®/³»¿ë
1. (±³Àç ¿¬½À¹®Á¦ 1Àå 1¹ø ¹®Á¦) ¾î¶² Å« °øÀå¿¡¼ µ¿ÀÏÇÑ ±â°èµéÀÇ Á¤ºñ±â·Ï¿¡ °üÇÑ Ç¥º»ÀڷḦ ÃëÇÏ¿´´Ù. ÀÌ´Â ±â°èÀÇ »ç¿ë¿¬µµ(age of machines)¿Í Á¤ºñºñ¿ë(maintenance cost) °£¿¡ ¾î¶² °ü°è°¡ ÀÖ´ÂÁö¸¦ ¹àÇô³»±â À§ÇÑ °ÍÀÌ´Ù. ÀÚ·á´Â ´ÙÀ½°ú °°´Ù (Ç¥º»ÀÇ Å©±â n=14).
1) ÀÌ ÀÚ·áÀÇ »êÁ¡µµ¸¦ ±×¸®°í, ȸ±ÍÁ÷¼±À» ÀûÇÕ½ÃŰ½Ã¿À. (2Á¡)
¨çRÄÚµå
# »êÁ¡µµ
yearOfUse [- c(3,1,5,8,1,4,2,6,9,3,5,7,2,6)
maintenanceCost [- c(39,24,115,105,50,86,67,90,140,112,70,186,43,126)
# pch´Â point symbol Ç¥½Ã Á¤¼ö(default=1)
plot(yearOfUse, maintenanceCost, main=»ç¿ë¿¬µµ¿Í Á¤ºñºñ¿ë »êÁ¡µµ, col=orange, pch=19)
abline(lm(maintenanceCost~yearOfUse), col=red, lwd=1.5) # ȸ±Í¼± Ãß°¡, lwd ¼±±½±â
# ȸ±ÍÁ÷¼±
# ¼±Çü ȸ±Í¸ðÇü ÀûÇÕ
model [- lm(maintenanceCost ~ yearOfUse)
# ȸ±Í°è¼ö Ãâ·Â
summary(model)
¨è°á°ú
ÄÚµå ½ÇÇà °á°ú ±×¸² »ý·«
À§ ȸ±ÍºÐ¼® °á°ú¿¡ µû¶ó, ȸ±Í°è¼ö·Î¼ ÀýÆí ÃßÁ¤Ä¡´Â 29.107ÀÌ°í ±â¿ï±âÀÇ ÃßÁ¤Ä¡´Â 13.637ÀÌ´Ù. µû¶ó¼ ÃßÁ¤µÈ ȸ±Í½ÄÀº ´ÙÀ½°ú °°´Ù.
Âü°í¹®Çå
RÀ» ÀÌ¿ëÇÑ È¸±Í¸ðÇü, KNOU PRESS, 2024