ÀÚ·á¼³¸í
|
¸®Æ÷Æ® ÀÛ¼º¿¡ Âü°íÇϼ¼¿ä~
¹®´Ü ¸ð¾ç(¿ÞÂÊ ¿©¹é 0, ¿À¸¥ÂÊ ¿©¹é 0, ÁÙ°£°Ý 160%) ±ÛÀÚ ¸ð¾ç(±¼¸²Ã¼, ÀåÆò 100%, Å©±â 11 pt, ÀÚ°£ 0%)
ÇູÇϼ¼¿ä, Now!
|
| ¸ñÂ÷/Â÷·Ê
|
R datarium ÆÐŰÁö¿¡ ³»ÀåµÈ performance µ¥ÀÌÅͼÂÀº ³²³à 60¸íÀÇ ¼ºº°(gender), ½ºÆ®·¹½º ±×·ì(stress),
¿¬±¸ ½ÃÀÛ ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t1), ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)ÀÇ µ¥ÀÌÅ͸¦ Æ÷ÇÔÇϰí ÀÖ´Ù.
ÀÌ µ¥ÀÌÅ͸¦ ÀÌ¿ëÇÏ¿© ´ÙÀ½ÀÇ ¹®Ç׿¡ ´äÇϽÿÀ.
1. ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)ÀÇ »óÀڱ׸²À» ¼ºº°·Î ³ª¶õÈ÷ ±×¸®½Ã¿À. ±×·¡ÇÁÀÇ Á¦¸ñÀ¸·Î º»ÀÎÀÇ ÇйøÀ» ³ÖÀ¸½Ã¿À. (3Á¡)
2. ¼ºº°¿¡ µû¶ó ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)ÀÇ Æò±Õ¿¡ Â÷À̰¡ ÀÖ´ÂÁö °ËÁ¤ÇϽÿÀ. (3Á¡)
3. ½ºÆ®·¹½º ±×·ì º°·Î ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)ÀÇ Æò±ÕÀ» ±¸ÇϽÿÀ. (3Á¡)
4. ½ºÆ®·¹½º ±×·ì º°·Î ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)ÀÇ Æò±Õ¿¡ Â÷À̰¡ ÀÖ´ÂÁö °ËÁ¤ÇϽÿÀ. (3Á¡)
5. ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2) °ª¿¡ µû¶ó ¨ç5.5 ÀÌÇÏ, ¨è 5.5 Ãʰú 5.8 ÀÌÇÏ, ¨é 5.8 Ãʰú ¼¼ ±×·ìÀ¸·Î ³ª´©´Â ¹üÁÖÇü º¯¼ö¸¦ ¸¸µå½Ã¿À. (3Á¡)
6. 5¹ø¿¡¼ ¸¸µç ¹üÁÖÇü º¯¼ö¿Í ½ºÆ®·¹½º ±×·ì º¯¼ö °£¿¡ ¿¬°ü¼ºÀÌ ÀÖ´ÂÁö °ËÁ¤ÇϽÿÀ. (3Á¡)
7. ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)¸¦ Á¾¼Óº¯¼ö·Î, ¿¬±¸ ½ÃÀÛ ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t1)¸¦ µ¶¸³º¯¼ö·Î ÇÏ´Â ´Ü¼ø¼±Çüȸ±ÍºÐ¼®À» ¼öÇàÇÏ¿© ȸ±ÍÁ÷¼±ÀÇ ±â¿ï±â¿Í ÀýÆíÀ» ±¸ÇϽÿÀ. (3Á¡)
8. ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)¸¦ ¼¼·ÎÃàÀ¸·Î, ¿¬±¸ ½ÃÀÛ ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t1)¸¦ °¡·ÎÃàÀ¸·Î ÇÏ´Â »êÁ¡µµ¸¦ ±×¸®°í, ±× À§¿¡ 7¹ø¿¡¼ ±¸ÇÑ È¸±ÍÁ÷¼±À» ±×¸®½Ã¿À. ±×·¡ÇÁÀÇ Á¦¸ñÀ¸·Î º»ÀÎÀÇ ÇйøÀ» ³ÖÀ¸½Ã¿À. (3Á¡)
9. ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)ÀÇ È÷½ºÅä±×·¥À» ±×¸®½Ã¿À. (3Á¡)
10. ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)ÀÇ È÷½ºÅä±×·¥À», ¼ºº°·Î µû·Î ±×¸®½Ã¿À.
|
| º»¹®/³»¿ë
|
1. ¿¬±¸ Á¾·á ½ÃÁ¡¿¡¼ÀÇ ¼º°úÁ¡¼ö(t2)ÀÇ »óÀڱ׸²À» ¼ºº°·Î ³ª¶õÈ÷ ±×¸®½Ã¿À. ±×·¡ÇÁÀÇ Á¦¸ñÀ¸·Î º»ÀÎÀÇ ÇйøÀ» ³ÖÀ¸½Ã¿À. (3Á¡)
# install.packages(datarium)
library(datarium)
head(performance)
# ¼ºº° t2 Æò±Õ
aggregate(t2 ~ gender, data¡ë performance, mean)
cat( ) # ÇÑ ÁÙ ¶ç¿ì±â
# ¼ºº° t2 Áß¾Ó°ª(2ºÐÀ§¼ö)
aggregate(t2 ~ gender, data¡ë performance, median)
# »óÀڱ׸²
boxplot(t2 ~ gender, data¡ë performance, col¡ëyellow, ylab¡ët2(¼º°úÁ¡¼ö), main¡ëº»ÀÎÀÇ Çйø)
# »óÀڱ׸²¿¡ ¼ºº° Æò±Õ Ç¥½Ã(Àû»ö + À§Ä¡°¡ Æò±ÕÀÓ), cex Á¡ÀÇ Å©±â, pch Æ÷ÀÎÆ® Á¾·ù
points(aggregate(t2 ~ gender, data¡ë performance, mean), pch¡ë3, col¡ëred, cex¡ë2)
|
| Âü°í¹®Çå
|
½É¼Û¿ë, ÀÌÀ±µ¿, ÀÌÀº°æ, ¹Ú¼¿µ, Rµ¥ÀÌÅͺм®, ÃâÆÇ¹®È¿ø, 2022.
|
|
|