¿¬½À¹®Á¦ 1Àå (p.39) 1¹ø (1)~(6)
¾î¶² Å« °øÀå¿¡¼ µ¿ÀÏÇÑ ±â°èµéÀÇ Á¤ºñ±â·Ï¿¡ °üÇÑ Ç¥º»ÀڷḦ ÃëÇÏ¿´´Ù. ÀÌ´Â ±â°èÀÇ »ç¿ë¿¬µµ(age of machines)¿Í Á¤ºñºñ¿ë(maintenance cost) °£¿¡ ¾î¶² °ü°è°¡ Àִ°¡¸¦ ¹àÇô³»±â À§ÇÑ °ÍÀ¸·Î ±× ÀÚ·á´Â ´ÙÀ½°ú °°´Ù(Ç¥º»ÀÇ Å©±â n¡ë14).
(1) ÀÌ µ¥ÀÌÅÍÀÇ »êÁ¡µµ¸¦ ±×·Á¶ó.
¨çÄÚµå
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) # Á¤ºñºñ¿ë
plot(yearOfUse, maintenanceCost, main¡ë»ç¿ë¿¬µµ¿Í Á¤ºñºñ¿ë »êÁ¡µµ,
col¡ëblue, pch¡ë19) # colÀº »ö±ò, pch´Â point symbol¸¦ ³ªÅ¸³»´Â Á¤¼ö
abline(lm(maintenanceCost~yearOfUse), col¡ëred, lwd¡ë2) # ȸ±Í¼± Ãß°¡, lwd ¼±±½±â
¨è°á°ú
°á°ú ±×¸² »ý·«
¨é¼³¸í
abline ÇÔ¼ö¿¡ ȸ±ÍºÐ¼® ÇÔ¼ö lmÀÇ È¸±ÍºÐ¼® °á°ú¸¦ Àμö·Î Àü´ÞÇϸé, ±×¸²°ú °°ÀÌ »êÁ¡µµ¿¡ ȸ±Í¼±ÀÌ »ðÀԵȴÙ. »êÁ¡µµ¸¦ ÅëÇØ ¾Ë ¼ö ÀÖµíÀÌ »ç¿ë¿¬µµ¿Í Á¤ºñºñ¿ëÀº Á¤ÀÇ »ó°ü°ü°è¸¦ º¸ÀÌ°í ÀÖ´Ù. »ó°üÀÇ Á¤µµ´Â (4) ¹®Ç׿¡¼ »ó°ü°è¼ö¸¦ ÅëÇØ È®ÀεȴÙ.
(2) ÃÖ¼ÒÁ¦°ö¹ý¿¡ ÀÇÇÑ È¸±ÍÁ÷¼±À» ÀûÇÕ½ÃÄѶó.
¡¦(»ý·«)
|