{"id":913,"date":"2023-07-28T08:05:33","date_gmt":"2023-07-28T08:05:33","guid":{"rendered":"https:\/\/statorials.org\/ko\/%e1%84%80%e1%85%a9%e1%86%bc%e1%84%87%e1%85%ae%e1%86%ab%e1%84%89%e1%85%a1%e1%86%ab-%e1%84%92%e1%85%a2%e1%86%bc%e1%84%85%e1%85%a7%e1%86%af-r\/"},"modified":"2023-07-28T08:05:33","modified_gmt":"2023-07-28T08:05:33","slug":"%e1%84%80%e1%85%a9%e1%86%bc%e1%84%87%e1%85%ae%e1%86%ab%e1%84%89%e1%85%a1%e1%86%ab-%e1%84%92%e1%85%a2%e1%86%bc%e1%84%85%e1%85%a7%e1%86%af-r","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/%e1%84%80%e1%85%a9%e1%86%bc%e1%84%87%e1%85%ae%e1%86%ab%e1%84%89%e1%85%a1%e1%86%ab-%e1%84%92%e1%85%a2%e1%86%bc%e1%84%85%e1%85%a7%e1%86%af-r\/","title":{"rendered":"R\uc5d0\uc11c \uacf5\ubd84\uc0b0 \ud589\ub82c\uc744 \ub9cc\ub4dc\ub294 \ubc29\ubc95"},"content":{"rendered":"

<\/p>\n

\n

\uacf5\ubd84\uc0b0\uc740<\/strong> \ud55c \ubcc0\uc218\uc758 \ubcc0\ud654\uac00 \ub450 \ubc88\uc9f8 \ubcc0\uc218\uc758 \ubcc0\ud654\uc640 \uc5b4\ub5bb\uac8c \uc5f0\uad00\ub418\uc5b4 \uc788\ub294\uc9c0\ub97c \uce21\uc815\ud55c \uac83\uc785\ub2c8\ub2e4. \ubcf4\ub2e4 \uad6c\uccb4\uc801\uc73c\ub85c \ub9d0\ud558\uba74 \ub450 \ubcc0\uc218\uac00 \uc120\ud615\uc801\uc73c\ub85c \uc5f0\uad00\ub418\ub294 \uc815\ub3c4\ub97c \uce21\uc815\ud558\ub294 \uac83\uc785\ub2c8\ub2e4.<\/span><\/p>\n

\uacf5\ubd84\uc0b0 \ud589\ub82c\uc740<\/strong> \ub2e4\uc591\ud55c \ubcc0\uc218 \uac04\uc758 \uacf5\ubd84\uc0b0\uc744 \ub098\ud0c0\ub0b4\ub294 \uc815\uc0ac\uac01 \ud589\ub82c\uc785\ub2c8\ub2e4. \uc774\ub294 \ub370\uc774\ud130 \uc138\ud2b8\uc5d0\uc11c \ub2e4\uc591\ud55c \ubcc0\uc218\uac00 \uc5b4\ub5bb\uac8c \uad00\ub828\ub418\uc5b4 \uc788\ub294\uc9c0 \uc774\ud574\ud558\ub294 \ub370 \uc720\uc6a9\ud55c \ubc29\ubc95\uc774 \ub420 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

\ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 R\uc5d0\uc11c \uacf5\ubd84\uc0b0 \ud589\ub82c\uc744 \ub9cc\ub4dc\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n

R\uc5d0\uc11c \uacf5\ubd84\uc0b0 \ud589\ub82c\uc744 \ub9cc\ub4dc\ub294 \ubc29\ubc95<\/strong><\/h3>\n

R\uc5d0\uc11c \uacf5\ubd84\uc0b0 \ud589\ub82c\uc744 \ub9cc\ub4e4\ub824\uba74 \ub2e4\uc74c \ub2e8\uacc4\ub97c \ub530\ub974\uc138\uc694.<\/span><\/p>\n

1\ub2e8\uacc4: \ub370\uc774\ud130 \ud504\ub808\uc784\uc744 \uc0dd\uc131\ud569\ub2c8\ub2e4.<\/strong><\/span><\/p>\n

\uba3c\uc800 \uc218\ud559, \uacfc\ud559, \uc5ed\uc0ac\uc758 \uc138 \uac00\uc9c0 \uacfc\ubaa9\uc5d0\uc11c 10\uba85\uc758 \ud559\uc0dd\uc758 \uc2dc\ud5d8 \uc810\uc218\uac00 \ud3ec\ud568\ub41c \ub370\uc774\ud130 \ud504\ub808\uc784\uc744 \ub9cc\ub4ed\ub2c8\ub2e4.<\/span><\/p>\n

 #create data frame<\/span>\ndata <- data.frame(math = c(84, 82, 81, 89, 73, 94, 92, 70, 88, 95),\n                   science = c(85, 82, 72, 77, 75, 89, 95, 84, 77, 94),\n                   history = c(97, 94, 93, 95, 88, 82, 78, 84, 69, 78))\n\n#view data frame\n<\/span>data\n\n   math science history\n1 84 85 97\n2 82 82 94\n3 81 72 93\n4 89 77 95\n5 73 75 88\n6 94 89 82\n7 92 95 78\n8 70 84 84\n9 88 77 69\n10 95 94 78\n<\/strong><\/pre>\n
 2\ub2e8\uacc4: \uacf5\ubd84\uc0b0 \ud589\ub82c\uc744 \ub9cc\ub4ed\ub2c8\ub2e4.<\/strong><\/span><\/p>\n
 \ub2e4\uc74c\uc73c\ub85c cov()<\/b> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \uc774 \ub370\uc774\ud130\uc138\ud2b8\uc5d0 \ub300\ud55c \uacf5\ubd84\uc0b0 \ud589\ub82c\uc744 \ub9cc\ub4ed\ub2c8\ub2e4.<\/span><\/p>\n
 #create covariance matrix<\/span>\ncov(data)\n\n             math science history\nmath 72.17778 36.88889 -27.15556\nscience 36.88889 62.66667 -26.77778\nhistory -27.15556 -26.77778 83.95556\n<\/strong><\/pre>\n
 3\ub2e8\uacc4: \uacf5\ubd84\uc0b0 \ud589\ub82c\uc744 \ud574\uc11d\ud569\ub2c8\ub2e4.<\/strong><\/span><\/p>\n
 \ud589\ub82c\uc758 \ub300\uac01\uc120\uc5d0 \uc788\ub294 \uac12\uc740 \ub2e8\uc21c\ud788 \uac01 \uac1c\uccb4\uc758 \ubd84\uc0b0\uc785\ub2c8\ub2e4. \uc608\ub97c \ub4e4\uc5b4:<\/span><\/p>\n