1(15Á¡). ¿¬½À¹®Á¦ 1Àå 1¹ø(p. 39) ÀڷḦ ÀÌ¿ëÇÏ¿© 1.7 ºÐ¼®»ç·Ê¿Í °°ÀÌ ºÐ¼®ÇÏ°í, ¼³¸íÇϽÿÀ. [Âü°í: ±³Àç ¼öÁ¤ p.37 p.x ¡ë data.frame(price¡ëc(1:45))]
1) ÀÚ·áÆÄÀÏ ¸¸µé±â
¸Þ¸ðÀåÀ» ÀÌ¿ëÇÏ¿© ¾Æ·¡¿Í °°ÀÌ ¡°¹®Á¦ 1¹ø ÀÚ·áÆÄÀÏ.txt¡± ÆÄÀÏÀ» ¸¸µç´Ù.
2) ÀڷḦ ÀÐ¾î »êÁ¡µµ ±×¸®±â
maintenance ¡ë read.table(C:/¹®Á¦ 1¹ø ÀÚ·áÆÄÀÏ.txt, header¡ëT)
head(maintenance, 3)
attach(maintenance) #¡¡attach ÇÔ¼ö¸¦ »ç¿ëÇϸé maintenanceÀÇ º¯¼ö¿¡ Á÷Á¢ Á¢±Ù °¡´É. ¡¡
plot(»ç¿ë¿¬µµ, Á¤ºñºñ¿ë, pch¡ë19, col¡ëred)
»êÁ¡µµ¸¦ º¸¸é »ç¿ë¿¬µµ¿Í Á¤ºñºñ¿ëÀÌ Á¤ÀÇ ¼±Çü°ü°è, Áï »ç¿ë¿¬µµ°¡ Áõ°¡Çϸé Á¤ºñºñ¿ëµµ Áõ°¡ÇÑ´Ù´Â °ÍÀÌ È®ÀεȴÙ.
|