|
¡¥ Ç¥½Ã(Àû»ö + À§Ä¡°¡ Æò±ÕÀÓ), cex Á¡ÀÇ Å©±â, pch Æ÷ÀÎÆ® Á¾·ù points(aggregate(t2 ~ gender, data¡ë performance, mean), pch¡ë3, col¡ëred, cex¡ë2) |
|
Á¤º¸Åë°è  | 
1p age   | 
11,000 ¿ø
|
|
|
|
|
|
¡¥ y, main¡ëx¿Í yÀÇ »êÁ¡µµ, col¡ëblue, pch¡ë19) abline(lm(y~x), col¡ëred, lwd¡ë2)# ȸ±Í¼± Ãß°¡ ¨è°á°ú ÄÚµå ½ÇÇà °á°ú ±×¸² »ý·« À§ ȸ±ÍºÐ¼® °á°ú¿¡ µû¶ó, ÀýÆí ÃßÁ¤Ä¡´Â -0.1157ÀÌ°í ±â¿ï±âÀÇ ÃßÁ¤Ä¡´Â 2.1626ÀÌ´Ù. µû¶ó¼ ÃßÁ¤µÈ ȸ±Í½ÄÀº ´ÙÀ½°ú °°´Ù. |
|
Á¤º¸Åë°è  | 
15p age   | 
19,000 ¿ø
|
|
|
|
|
|
¡¥Á÷Á¢ Á¢±Ù °¡´É. ¡¡ plot(»ç¿ë¿¬µµ, Á¤ºñºñ¿ë, pch¡ë19, col¡ëred) »êÁ¡µµ¸¦ º¸¸é »ç¿ë¿¬µµ¿Í Á¤ºñºñ¿ëÀÌ Á¤ÀÇ ¼±Çü°ü°è, Áï »ç¿ë¿¬µµ°¡ Áõ°¡Çϸé Á¤ºñºñ¿ëµµ Áõ°¡ÇÑ´Ù´Â °ÍÀÌ È®ÀεȴÙ. |
|
Á¤º¸Åë°è  | 
9p age   | 
6,000 ¿ø
|
|
|
|
|
|
¡¥ Ç¥½Ã(Àû»ö + À§Ä¡°¡ Æò±ÕÀÓ), cex Á¡ÀÇ Å©±â, pch Æ÷ÀÎÆ® Á¾·ù points(aggregate(score ~ gender, data¡ë jobsatisfaction, mean), pch¡ë3, col¡ëred, cex¡ë2) # Âü°í(ggplot2 ÆÐÅ°Áö·Î ±×¸®±â) library(ggplot2) # ¼ºº° »óÀڱ׸² ggplot(jobsatisfaction, aes(x ¡ë gender, y ¡ë score, fill ¡ë gender)) + geom_boxplot() + labs(title ¡ë º»ÀÎÀÇ Çйø, x ¡ë ¼ºº°, y ¡ë Á÷¾÷¸¸Á·µµ¡¦ |
|
Á¤º¸Åë°è  | 
15p age   | 
16,000 ¿ø
|
|
|
|
|
|
¡¥¡ë»ç¿ë¿¬µµ¿Í Á¤ºñºñ¿ë »êÁ¡µµ, col¡ëblue, pch¡ë19) # colÀº »ö±ò, pch´Â point symbol¸¦ ³ªÅ¸³»´Â Á¤¼ö abline(lm(maintenanceCost~yearOfUse), col¡ëred, lwd¡ë2)# ȸ±Í¼± Ãß°¡, lwd ¼±±½±â ¨è°á°ú °á°ú ±×¸² »ý·« ¨é¼³¸í abline ÇÔ¼ö¿¡ ȸ±ÍºÐ¼® ÇÔ¼ö lmÀÇ È¸±ÍºÐ¼® °á°ú¸¦ Àμö·Î Àü´ÞÇϸé, ±×¸²°ú °°ÀÌ »êÁ¡µµ¿¡ ȸ±Í¼±ÀÌ »ðÀԵȴÙ. »êÁ¡µµ¸¦ ÅëÇØ ¾Ë ¼ö ÀÖµíÀÌ »ç¿ë¿¬µµ¿Í ¡¦ |
|
Á¤º¸Åë°è  | 
9p age   | 
6,000 ¿ø
|
|
|
|
|
|
.. / Á¤º¸Åë°èÇаú 4Çг⠰濵Àü·«·Ð °øÅë ÀÚ½ÅÀÌ ÀçÁ÷ÇÏ´Â ±â¾÷À̳ª ÀÏÇغ¸°í ½ÍÀº ±â¾÷À» Çϳª ¼±Á¤ÇÏ¿©, ÇØ´ç ±â¾÷ÀÇ »ê¾÷ȯ°æºÐ¼®À» ½Ç½ÃÇ϶ó 1. µé¾î°¡¸ç 2. KT ¼Ò°³ 3. Æ÷ÅÍÀÇ Five-Force Model ¼Ò°³ 1) Five-Force ModelÀÇ ÀÇÀÇ 2) Five-Force ModelÀ̶õ °¡) ±âÁ¸±â¾÷°úÀÇ °æÀï ¨ç »ê¾÷ÀÇ ÁýÁßµµ ¨è °æÀï±â¾÷ÀÇ µ¿Áú¼º°ú ÀÌÁú¼º ¨é Á¦Ç°Â÷º°È ¨ê ÃÊ°ú¼³ºñ ¨ë ºñ¿ë±¸Á¶ ³ª) ÀáÀçÀû¡¦ |
|
Á¤º¸Åë°è  | 
10p age   | 
6,000 ¿ø
|
|
|
|
|