{"id":1149,"date":"2019-04-21T14:40:49","date_gmt":"2019-04-21T05:40:49","guid":{"rendered":"http:\/\/141.164.34.82\/?p=1149"},"modified":"2019-04-21T14:44:04","modified_gmt":"2019-04-21T05:44:04","slug":"%eb%8b%a4%ec%b0%a8%ec%9b%90-%eb%b0%b0%ec%97%b4","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=1149","title":{"rendered":"\ub2e4\ucc28\uc6d0 \ubc30\uc5f4"},"content":{"rendered":"<h1>3+\ucc28\uc6d0 \ubc30\uc5f4<\/h1>\n<h2>11\ucc28\uc6d0<\/h2>\n<p>\ubb3c\ub9ac\ud559\uc790\ub4e4\uc740 \uc138\uc0c1\uc5d0 <a href=\"https:\/\/ko.wikipedia.org\/wiki\/11%EC%B0%A8%EC%9B%90_%EC%B4%88%EC%A4%91%EB%A0%A5\">11\ucc28\uc6d0<\/a>\uc77c\uc9c0 \ubaa8\ub978\ub2e4\ub294 \ud559\uc124\uc744 \uc5f0\uad6c\ud55c\ub2e4\uace0 \ud55c\ub2e4. \uc0c1\ub2f9\ud788 \ub180\ub77c\uc6b4 \uc77c\uc774\ub2e4. \uc778\uac04\uc774 11\ucc28\uc6d0\uc744 \uc0c1\uc0c1\ud560 \uc218 \uc788\ub2e4\ub2c8!<\/p>\n<p><iframe loading=\"lazy\" width=\"560\" height=\"315\" src=\"https:\/\/www.youtube.com\/embed\/DBZpSaf7faI\" frameborder=\"0\" allow=\"accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture\" allowfullscreen><\/iframe><\/p>\n<h2>\ub370\uc774\ud130 \ud504\ub808\uc784 \ub610\ub294 2\ucc28\uc6d0 \ubc30\uc5f4(\ud589\ub82c)<\/h2>\n<p>\uc778\uac04\uc774 \ubc1b\uc544\ub4e4\uc774\ub294 \uc2dc\uac01 \uc790\uadf9\uc740 \uae30\ubcf8\uc801\uc73c\ub85c 2\ucc28\uc6d0\uc774\ub2e4. \ud558\uc9c0\ub9cc \uc544\uc8fc \uc790\uc5f0\uc2a4\ub7fd\uac8c 3\ucc28\uc6d0\uc758 \uc2ec\uc0c1\uc744 \uad6c\uc131\ud574\ub0b8\ub2e4\uace0 \ud55c\ub2e4. \ud558\uc9c0\ub9cc \uc22b\uc790\ub85c \uc774\ub8e8\uc5b4\uc9c4 \ud45c\ub97c \uadf8\ub9b0\ub2e4\uba74, 3\ucc28\uc6d0\uc758 \ud45c\ub97c \uadf8\ub9ac\uac70\ub098 \ud558\uc9c0\ub294 \uc54a\ub294\ub2e4. <\/p>\n<p>\ub9ce\uc740 \ub370\uc774\ud130\ub294 \ub370\uc774\ud130\ud504\ub808\uc784\uc758 \ud615\uc2dd(2\ucc28\uc6d0\uc758 \uc9c1\uc0ac\uac01\ud615 \ubaa8\uc591)\uc73c\ub85c \uc800\uc7a5\ud560 \uc218\ub3c4 \uc788\uace0, \ub2e4\ucc28\uc6d0\uc758 \ubc30\uc5f4\ub85c \uc800\uc7a5\ud560 \uc218\ub3c4 \uc788\ub2e4. \uc608\ub97c \ub4e4\uc5b4 \uac00\uc7a5 \uac04\ub2e8\ud558\uac8c \ub0a8\uc790 \ub610\ub294 \uc5ec\ud559\uc0dd\uc758 \ud0a4\ub97c \uce21\uc815\ud588\ub2e4\uace0 \ud574\ubcf4\uc790. <\/p>\n<pre><code class=\"r\">height = data.frame(gender=c(&#39;M&#39;,&#39;M&#39;,&#39;M&#39;, &#39;F&#39;,&#39;F&#39;,&#39;F&#39;),\n                    height = c(170,180,175, 170,166,160))\n#knitr::kable(height)\nheight\n<\/code><\/pre>\n<pre>##   gender height\n## 1      M    170\n## 2      M    180\n## 3      M    175\n## 4      F    170\n## 5      F    166\n## 6      F    160\n<\/pre>\n<p>\uc774\ub97c \ubc30\uc5f4\ub85c \uc800\uc7a5\ud558\ub824\uba74 \ub2e4\uc74c\uacfc \uac19\uc774 \ud560 \uc218 \uc788\ub2e4. <\/p>\n<p>\uc6b0\uc120 \uac01 <strong>\uc870\uac74<\/strong>\ubcc4\ub85c \uc21c\ubc88\uc744 \ub9e4\uae34\ub2e4.<\/p>\n<pre><code class=\"r\">library(dplyr)\ndf &lt;- \n  height %&gt;% group_by(gender)  %&gt;% mutate(index=row_number()) \n\n#knitr::kable(df)\ndf\n<\/code><\/pre>\n<pre>## # A tibble: 6 x 3\n## # Groups:   gender [2]\n##   gender height index\n##   &lt;fct&gt;   &lt;dbl&gt; &lt;int&gt;\n## 1 M         170     1\n## 2 M         180     2\n## 3 M         175     3\n## 4 F         170     1\n## 5 F         166     2\n## 6 F         160     3\n<\/pre>\n<p>\uadf8\ub9ac\uace0 \uc774 \uc21c\ubc88\uc744 \ud65c\uc6a9\ud558\uc5ec \ub2e4\uc74c\uacfc \uac19\uc774 \ubc30\uc5f4\ub85c \ubc14\uafc0 \uc218 \uc788\ub2e4.<\/p>\n<pre><code class=\"r\">arr &lt;- \n  array(data = df$height,\n        dim = c(length(unique(df$gender)),\n                length(unique(df$index))),\n        dimnames = list(unique(df$gender), unique(df$index)))\n\narr\n<\/code><\/pre>\n<pre>##     1   2   3\n## M 170 175 166\n## F 180 170 160\n<\/pre>\n<p>2\ucc28\uc6d0 \ubc30\uc5f4\uc774\ub2e4! \uc774 \ubc30\uc5f4\uc5d0\uc11c \uce21\uc815\uac12 166\uc774 \ub0a8\uc790(<strong>M<\/strong>ale)\uc758 \uc138 \ubc88\uc9f8 \ud559\uc0dd\uc758 \ud0a4\ub77c\ub294 \uac83\uc744 \uc54c \uc218 \uc788\ub294 \uc774\uc720\ub294 166\uc774 \ubc30\uc5f4 <code>arr<\/code>\uc758 (1,3)\uc5d0 \uc704\uce58\ud558\uace0 \uc788\uae30 \ub54c\ubb38\uc774\ub2e4. (<code>arr[1,3]==166<\/code>)<\/p>\n<p>2\ucc28\uc6d0 \ubc30\uc5f4\uc740 R\uc774 \uc54c\uc544\uc11c \ud589\ub82c\ub85c \uc778\uc2dd\ud55c\ub2e4. (R\uc758 2\ucc28\uc6d0 \ubc30\uc5f4\uc740 <strong>\ud589\ub82c<\/strong>\uc774\ub2e4.)<\/p>\n<pre><code class=\"r\">class(arr)\n<\/code><\/pre>\n<pre>## [1] &quot;matrix&quot;\n<\/pre>\n<h2>3\ucc28\uc6d0 \ubc30\uc5f4<\/h2>\n<p>\uc774\ubc88\uc5d4 \uc870\uac74\uc758 \uac2f\uc218\ub97c \ub298\ub824\ubcf4\uc790. \uc131\ubcc4, \ud559\uad50\uae4c\uc9c0 \ud3ec\ud568\uc2dc\ud0a4\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4.<\/p>\n<pre><code class=\"r\">height = data.frame(school= c(rep(&#39;A&#39;, 6), rep(&#39;B&#39;,6), rep(&#39;C&#39;, 6)),\n                    gender=c(&#39;M&#39;,&#39;M&#39;,&#39;M&#39;, &#39;F&#39;,&#39;F&#39;,&#39;F&#39;,\n                             &#39;M&#39;,&#39;M&#39;,&#39;M&#39;, &#39;F&#39;,&#39;F&#39;,&#39;F&#39;,\n                             &#39;M&#39;,&#39;M&#39;,&#39;M&#39;, &#39;F&#39;,&#39;F&#39;,&#39;F&#39;),\n                    height = c(170,180,175, 169,165,173,\n                               173,181,175, 166,164,155,\n                               172,184,176, 167,162,164))\n\n#knitr::kable(height)\nheight\n<\/code><\/pre>\n<pre>##    school gender height\n## 1       A      M    170\n## 2       A      M    180\n## 3       A      M    175\n## 4       A      F    169\n## 5       A      F    165\n## 6       A      F    173\n## 7       B      M    173\n## 8       B      M    181\n## 9       B      M    175\n## 10      B      F    166\n## 11      B      F    164\n## 12      B      F    155\n## 13      C      M    172\n## 14      C      M    184\n## 15      C      M    176\n## 16      C      F    167\n## 17      C      F    162\n## 18      C      F    164\n<\/pre>\n<p>\uc774\ub97c \ubc30\uc5f4\ub85c \ubc14\uafbc\ub2e4\uba74 \uc55e\uc11c\uc640 \ub9c8\ucc2c\uac00\uc9c0\ub85c \uba3c\uc800 \uc21c\uc11c\ub97c \ubd99\uc774\uace0, \ubc30\uc5f4\ub85c \ubcc0\ud658\ud55c\ub2e4.<\/p>\n<pre><code class=\"r\">df &lt;- \n  height %&gt;% group_by(school, gender)  %&gt;% mutate(index=row_number()) \ndf\n<\/code><\/pre>\n<pre>## # A tibble: 18 x 4\n## # Groups:   school, gender [6]\n##    school gender height index\n##    &lt;fct&gt;  &lt;fct&gt;   &lt;dbl&gt; &lt;int&gt;\n##  1 A      M         170     1\n##  2 A      M         180     2\n##  3 A      M         175     3\n##  4 A      F         169     1\n##  5 A      F         165     2\n##  6 A      F         173     3\n##  7 B      M         173     1\n##  8 B      M         181     2\n##  9 B      M         175     3\n## 10 B      F         166     1\n## 11 B      F         164     2\n## 12 B      F         155     3\n## 13 C      M         172     1\n## 14 C      M         184     2\n## 15 C      M         176     3\n## 16 C      F         167     1\n## 17 C      F         162     2\n## 18 C      F         164     3\n<\/pre>\n<pre><code class=\"r\">arr &lt;- \n  array(data = df$height,\n        dim = c(length(unique(df$school)),\n                length(unique(df$gender)),\n                length(unique(df$index))),\n        dimnames = list(unique(df$school), unique(df$gender), unique(df$index)))\narr\n<\/code><\/pre>\n<pre>## , , 1\n## \n##     M   F\n## A 170 169\n## B 180 165\n## C 175 173\n## \n## , , 2\n## \n##     M   F\n## A 173 166\n## B 181 164\n## C 175 155\n## \n## , , 3\n## \n##     M   F\n## A 172 167\n## B 184 162\n## C 176 164\n<\/pre>\n<h3>\uc21c\ubc88\uc73c\ub85c \ucc38\uc870<\/h3>\n<p>\ubc30\uc5f4 <code>arr<\/code>\uc744 \ucd9c\ub825\ud558\uba74 \uc704\uc640 \uac19\uc774 \ub2e4\uc18c \uc774\ud574\ud558\uae30 \ud798\ub4e0 \ubc29\uc2dd\uc73c\ub85c \ucd9c\ub825\uc774 \ub41c\ub2e4. \uc774\ub97c \uc870\uae08 \uc124\uba85\ud574\ubcf4\uc790.<\/p>\n<pre><code class=\"r\">## , , 1\n##\n##     M   F\n## A 170 170\n## B 180 166\n## C 175 160\n<\/code><\/pre>\n<p>\uc5ec\uae30\uc11c <code>, , 1<\/code>\uc758 \uccab \ub450 \ube48\uce78\uc744 \uc544\ub798 \ud589\ub82c\uc758 \uc5f4\uacfc \ud589\uc774 \ucc28\uc9c0\ud558\uae30 \ub41c\ub2e4. \ub530\ub77c\uc11c \uc544\ub798 \ud589\ub82c\uc758 (1,1) \uc704\uce58 \uac12 <code>170<\/code>\uc740 \uc0ac\uc2e4\uc740 <code>arr[1,1,1]<\/code>\uc758 \uac12\uc774\uace0, \ud589\ub82c\uc758 (2,1) \uc704\uce58\uc758 \uac12 <code>180<\/code>\uc740 <code>arr[2,1,1]<\/code>\uc758 \uac12\uc774\ub2e4.<\/p>\n<p>3\ucc28\uc6d0 \ubc30\uc5f4\uc740 3\ucc28\uc6d0\uc758 \uacf5\uac04\uc5d0 \ub098\ud0c0\ub0b4\ub294 \uac83\uc774 \uac00\uc7a5 \ud569\ub2f9\ud558\uaca0\uc73c\ub098 2\ucc28\uc6d0 \ubaa8\ub2c8\ud130\uc5d0\uc11c \ucd9c\ub825\ud558\uae30 \uc704\ud574\uc11c\ub294 3\ucc28\uc6d0\uc758 \uac01 \uce35\uc744 \ud589\ub82c\ub85c \ub098\ud0c0\ub0b8 \uac83\uc774\ub77c\uace0 \uc774\ud574\ud558\uba74 \ub41c\ub2e4. <\/p>\n<p>\ub9cc\uc57d 3\ucc28\uc6d0 \ubc30\uc5f4\uc744 3\ucc28\uc6d0\uc758 \uacf5\uac04\uc5d0 \ub098\ud0c0\ub0b8\ub2e4\uba74 \uc544\ub798 \uadf8\ub9bc\uc758 \ub8e8\ube45\uc2a4 \ud050\ube0c\ucc98\ub7fc (\uc55e\uba74\uc758 \uc22b\uc790 \ub54c\ubb38\uc5d0 \uac00\ub824\uc11c) \ubcf4\uc774\uc9c0 \uc54a\ub294 \ubd80\ubd84\uc774 \uc0dd\uae30\uac8c \ub41c\ub2e4.<\/p>\n<p><img src=\"https:\/\/upload.wikimedia.org\/wikipedia\/commons\/thumb\/6\/61\/Rubiks_cube_solved.jpg\/330px-Rubiks_cube_solved.jpg\" alt=\"Rubik&#39;s Cube - \ucd9c\ucc98 wikipedia\"\/><\/p>\n<p>3\ucc28\uc6d0 \ubc30\uc5f4\uc5d0\uc11c \uac01 \uac12\uc774 \uc5b4\ub5a4 \uc870\uac74\uc5d0\uc11c \uce21\uc815\ub41c \uac12\uc778\uc9c0\ub294 \uadf8 \uc704\uce58\ub97c \ud1b5\ud574 \ucd94\uce21\ud560 \uc218 \uc788\ub2e4. \uc544\ub798\uc758 \ubc30\uc5f4 \ud45c\ud604\uc744 \ubcf4\uace0 \uc5b4\ub5a4 \uc870\uac74\uc758 \uac12\uc744 \ub098\ud0c0\ub0b4\ub294\uc9c0 \uc54c\uc544\ubcf4\uc790.<\/p>\n<ol>\n<li><code>arr[1,1,1]<\/code><\/li>\n<li><code>arr[3,1,2]<\/code><\/li>\n<li><code>arr[1,,2]<\/code><\/li>\n<li><code>arr[,2,]<\/code><\/li>\n<\/ol>\n<p>\uc704\uc758 \ud45c\ud604\uc740 \ubaa8\ub450 \ubc30\uc5f4 <code>arr<\/code>\uc758 \uc704\uce58\ub85c \uac12\uc744 \ucc38\uc870\ud558\uace0 \uc788\ub2e4. <code>arr[1,1,1]<\/code>\uc740 \ud559\uad50 <code>A<\/code>, \uc131\ubcc4 \ub0a8(<code>M<\/code>), \uadf8\ub9ac\uace0 \uccab \ubc88\uc9f8 \ud559\uc0dd\uc758 \ud0a4\ub97c \ub098\ud0c0\ub0b4\uace0, <code>arr[3,1,2]<\/code>\ub294 \ud559\uad50 <code>C<\/code>, \uc131\ubcc4 \ub0a8, 2\ubc88\uc9f8 \ud559\uc0dd\uc758 \ud0a4\ub97c \ub098\ud0c0\ub0b8\ub2e4. <code>arr[1,,2]<\/code>\ub294 \ud559\uad50 <code>A<\/code>\uc774\uace0 \ub450 \ubc88\uc9f8 \ud559\uc0dd\uc758 \ud0a4\ub97c \ubaa8\ub450 \ub098\ud0c0\ub0b4\uace0(\uc131\ubcc4\uc740 \ub0a8 \ub610\ub294 \uc5ec \ubaa8\ub450), <code>arr[,2,]<\/code>\uc740 \uc131\ubcc4\uc774 \uc5ec\uc790\uc778 \ubaa8\ub4e0 \ud559\uc0dd\uc744 \ub098\ud0c0\ub0b8\ub2e4.<\/p>\n<h3>\uc704\uce58 \uc774\ub984\uc73c\ub85c \ucc38\uc870<\/h3>\n<p>\uc774\ub807\uac8c \uc704\uce58\ub85c \ucc38\uc870\ud558\ub294 \uac83\uc740 \uac01 \uc704\uce58\uac00 \uc5b4\ub5a4 \uc758\ubbf8\ub97c \ub098\ud0c0\ub0b4\ub294\uc9c0 \ubbf8\ub9ac \uc54c\uace0 \uc788\uc5b4\uc57c \ud558\ubbc0\ub85c \ub2e4\uc18c \ubd88\ud3b8\ud558\ub2e4. \ub2e4\ud589\ud788\ub3c4 \uc704\uc5d0\uc11c \ubc30\uc5f4 <code>arr<\/code>\uc744 \ub9cc\ub4e4 \ub54c <code>dimnames=<\/code>\ub85c \uac01 \uc704\uce58\uc5d0 \uc774\ub984\uc744 \ubd80\uc5ec\ud558\uc600\ub2e4.<\/p>\n<pre><code class=\"r\">dimnames(arr)\n<\/code><\/pre>\n<pre>## [[1]]\n## [1] &quot;A&quot; &quot;B&quot; &quot;C&quot;\n## \n## [[2]]\n## [1] &quot;M&quot; &quot;F&quot;\n## \n## [[3]]\n## [1] &quot;1&quot; &quot;2&quot; &quot;3&quot;\n<\/pre>\n<p>\ub9cc\uc57d \uc774\ub984\uc774 \uc815\ud655\ud558\uac8c \ubd80\uc5ec\ub418\uc5c8\ub2e4\uba74, \uc870\uac74\uc744 \ubc14\ub85c \uc801\uc6a9\ud560 \uc218 \uc788\ub2e4. \uc608\ub97c \ub4e4\uc5b4 \ub0a8\uc790\uc778 \ubaa8\ub4e0 \ud559\uc0dd\uc758 \ud0a4\ub97c \uc54c\uace0 \uc2f6\ub2e4\uba74, <code>arr[,&quot;M&quot;,]<\/code>, \ud559\uad50 <code>B<\/code>\uc758 \ubaa8\ub4e0 \ud559\uc0dd\uc758 \ud0a4\ub97c \uc54c\uace0 \uc2f6\ub2e4\uba74 <code>arr[&#39;B&#39;, , ]<\/code>, \uadf8\ub9ac\uace0 \ud559\uad50 <code>B<\/code>\uc758 \ubaa8\ub4e0 \ub0a8\uc790\uc758 \ud0a4\ub97c \uc54c\uace0 \uc2f6\ub2e4\uba74 <code>arr[&#39;B&#39;, &#39;M&#39;, ]<\/code>\ub85c \uc4f8 \uc218 \uc788\ub2e4.<\/p>\n<pre><code class=\"r\">arr[,&quot;M&quot;,]\n<\/code><\/pre>\n<pre>##     1   2   3\n## A 170 173 172\n## B 180 181 184\n## C 175 175 176\n<\/pre>\n<pre><code class=\"r\">arr[&#39;B&#39;,,]\n<\/code><\/pre>\n<pre>##     1   2   3\n## M 180 181 184\n## F 165 164 162\n<\/pre>\n<pre><code class=\"r\">arr[&#39;B&#39;, &#39;M&#39;, ]\n<\/code><\/pre>\n<pre>##   1   2   3 \n## 180 181 184\n<\/pre>\n<p>\uc774 \ubc29\ubc95\uc5d0\uc11c \uc27c\ud45c\uc640 \uc815\ud655\ud55c \uc704\uce58\uac00 \uc815\ub9d0 \uc911\uc694\ud558\ub2e4!<\/p>\n<pre><code class=\"r\">arr[&#39;B&#39;, &#39;M&#39;, ] \n<\/code><\/pre>\n<pre>##   1   2   3 \n## 180 181 184\n<\/pre>\n<pre><code class=\"r\">arr[,&#39;B&#39;, &#39;M&#39;]\n<\/code><\/pre>\n<pre>## Error in arr[, &quot;B&quot;, &quot;M&quot;]: subscript out of bounds\n<\/pre>\n<p><code>arr[, &#39;B&#39;, &#39;M&#39;]<\/code>\uc740 \uc5d0\ub7ec\ub97c \ubc1c\uc0dd\uc2dc\ud0a4\ub294\ub370, <code>subscript out of bounds<\/code>, \ub2e4\uc2dc \ub9d0\ud574 \ub450 \ubc88\uc9f8 \ucc28\uc6d0\uc5d0\uc11c <code>&#39;B&#39;<\/code>\uc5d0 \ud574\ub2f9\ud558\ub294 \uc704\uce58\ub97c \uc54c \uc218 \uc5c6\uace0, \uc138 \ubc88\uc9f8 \ucc28\uc6d0\uc5d0\uc11c <code>&#39;M&#39;<\/code>\uc5d0 \ud574\ub2f9\ud558\ub294 \uc704\uce58\ub97c \uc54c \uc218 \uc5c6\uae30 \ub54c\ubb38\uc774\ub2e4.<\/p>\n<p>\ub9cc\uc57d \uc704\uce58\ub3c4 \uc2e0\uacbd\uc4f0\uc9c0 \uc54a\uace0 \uc2f6\ub2e4\uba74 \uba3c\uc800 \uc704\uce58\uc758 \uc758\ubbf8\ub97c \uc54c\ub824\uc904 \ud544\uc694\uac00 \uc788\ub2e4. <code>dimnames(arr)<\/code>\ub294 \uac01 \ucc28\uc6d0\uc758 \uc704\uce58 \uc774\ub984\uc744 \uc800\uc7a5\ud558\ub294 \ub9ac\uc2a4\ud2b8\uc774\uace0, \uac01 \ucc28\uc6d0\uc5d0 \uc758\ubbf8\ub97c \ubd80\uc5ec\ud574 \uc904 \uc218 \uc788\ub2e4.<\/p>\n<pre><code class=\"r\">dimnames(arr)\n<\/code><\/pre>\n<pre>## [[1]]\n## [1] &quot;A&quot; &quot;B&quot; &quot;C&quot;\n## \n## [[2]]\n## [1] &quot;M&quot; &quot;F&quot;\n## \n## [[3]]\n## [1] &quot;1&quot; &quot;2&quot; &quot;3&quot;\n<\/pre>\n<pre><code class=\"r\">names(dimnames(arr)) = c(&#39;school&#39;, &#39;gender&#39;, &#39;num&#39;)\n<\/code><\/pre>\n<p>\uc774\uc81c \ub2e4\uc2dc <code>arr<\/code>\ub97c \ucd9c\ub825\ud574\ubcf4\uba74,<\/p>\n<pre><code class=\"r\">arr\n<\/code><\/pre>\n<pre>## , , num = 1\n## \n##       gender\n## school   M   F\n##      A 170 169\n##      B 180 165\n##      C 175 173\n## \n## , , num = 2\n## \n##       gender\n## school   M   F\n##      A 173 166\n##      B 181 164\n##      C 175 155\n## \n## , , num = 3\n## \n##       gender\n## school   M   F\n##      A 172 167\n##      B 184 162\n##      C 176 164\n<\/pre>\n<p>\uadf8\ub9ac\uace0 \ud328\ud0a4\uc9c0 <code>R.utils<\/code>\uc758 <code>extract<\/code> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uba74 \ub2e4\uc74c\uacfc \uac19\uc774 \uc4f8 \uc218 \uc788\ub2e4.<\/p>\n<pre><code class=\"r\">library(R.utils) # install.packages(&#39;R.utils&#39;)\nextract(arr, &#39;school&#39;=c(&#39;A&#39;,&#39;B&#39;))\n<\/code><\/pre>\n<pre>## , , num = 1\n## \n##       gender\n## school   M   F\n##      A 170 169\n##      B 180 165\n## \n## , , num = 2\n## \n##       gender\n## school   M   F\n##      A 173 166\n##      B 181 164\n## \n## , , num = 3\n## \n##       gender\n## school   M   F\n##      A 172 167\n##      B 184 162\n<\/pre>\n<pre><code class=\"r\">extract(arr, gender=&#39;M&#39;, num=&#39;2&#39;, school=&#39;A&#39;)\n<\/code><\/pre>\n<pre>## , , num = 2\n## \n##       gender\n## school   M\n##      A 173\n<\/pre>\n<pre><code class=\"r\">arr[1,1,2]\n<\/code><\/pre>\n<pre>## [1] 173\n<\/pre>\n<p><code>extract<\/code> \ud568\uc218\ub294 \uc21c\ubc88\uc73c\ub85c \ucc38\uc870\ud560 \ub54c\uc5d0\ub294 <code>arr[]<\/code>\uacfc \uac70\uc758 \ub3d9\uc77c\ud558\uac8c \uc791\ub3d9\ud55c\ub2e4.<\/p>\n<pre><code class=\"r\">extract(arr, 3,2,1)\n<\/code><\/pre>\n<pre>## , , num = 1\n## \n##       gender\n## school   F\n##      C 173\n<\/pre>\n<pre><code class=\"r\">arr[3,2,1]\n<\/code><\/pre>\n<pre>## [1] 173\n<\/pre>\n<p>\ud558\uc9c0\ub9cc <code>extract<\/code>\ub97c \uc0ac\uc6a9\ud558\uc5ec \uc218\uc815\uc744 \ud560 \uc218\ub294 \uc5c6\ub2e4.<\/p>\n<pre><code class=\"r\">extract(arr, 3, 2, 1)=161\n<\/code><\/pre>\n<pre>## Error in extract(arr, 3, 2, 1) = 161: could not find function &quot;extract&lt;-&quot;\n<\/pre>\n<pre><code class=\"r\">arr[3,2,1]=161\n<\/code><\/pre>\n<hr\/>\n<p>\uc774 \uae00\uc740 &ldquo;[<strong>R\ub85c \ud558\ub294 \ube45\ub370\uc774\ud130 \ubd84\uc11d: \ub370\uc774\ud130 \uc804\ucc98\ub9ac\uc640 \uc2dc\uac01\ud654<\/strong>]\uc758 \uc77c\ubd80\ub97c \ubc1c\ucdcc, \uac01\uc0c9\ud55c \uac83\uc785\ub2c8\ub2e4. <\/p>\n","protected":false},"excerpt":{"rendered":"<p>3+\ucc28\uc6d0 \ubc30\uc5f4 11\ucc28\uc6d0 \ubb3c\ub9ac\ud559\uc790\ub4e4\uc740 \uc138\uc0c1\uc5d0 11\ucc28\uc6d0\uc77c\uc9c0 \ubaa8\ub978\ub2e4\ub294 \ud559\uc124\uc744 \uc5f0\uad6c\ud55c\ub2e4\uace0 \ud55c\ub2e4. \uc0c1\ub2f9\ud788 \ub180\ub77c\uc6b4 \uc77c\uc774\ub2e4. \uc778\uac04\uc774 11\ucc28\uc6d0\uc744 \uc0c1\uc0c1\ud560 \uc218 \uc788\ub2e4\ub2c8! \ub370\uc774\ud130 \ud504\ub808\uc784 \ub610\ub294 2\ucc28\uc6d0 \ubc30\uc5f4(\ud589\ub82c) \uc778\uac04\uc774 \ubc1b\uc544\ub4e4\uc774\ub294 \uc2dc\uac01 \uc790\uadf9\uc740 \uae30\ubcf8\uc801\uc73c\ub85c 2\ucc28\uc6d0\uc774\ub2e4. \ud558\uc9c0\ub9cc \uc544\uc8fc \uc790\uc5f0\uc2a4\ub7fd\uac8c 3\ucc28\uc6d0\uc758 \uc2ec\uc0c1\uc744 \uad6c\uc131\ud574\ub0b8\ub2e4\uace0 \ud55c\ub2e4. \ud558\uc9c0\ub9cc \uc22b\uc790\ub85c \uc774\ub8e8\uc5b4\uc9c4 \ud45c\ub97c \uadf8\ub9b0\ub2e4\uba74, 3\ucc28\uc6d0\uc758 \ud45c\ub97c \uadf8\ub9ac\uac70\ub098 \ud558\uc9c0\ub294 \uc54a\ub294\ub2e4. \ub9ce\uc740 \ub370\uc774\ud130\ub294 \ub370\uc774\ud130\ud504\ub808\uc784\uc758 \ud615\uc2dd(2\ucc28\uc6d0\uc758 \uc9c1\uc0ac\uac01\ud615 \ubaa8\uc591)\uc73c\ub85c \uc800\uc7a5\ud560 \uc218\ub3c4 \uc788\uace0, [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":1151,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[28,242,179],"tags":[251,252],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2019\/04\/Rubiks_cube_solved.jpg","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1149"}],"collection":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1149"}],"version-history":[{"count":5,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1149\/revisions"}],"predecessor-version":[{"id":1155,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1149\/revisions\/1155"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/1151"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1149"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1149"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1149"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}