{"id":1023,"date":"2019-03-14T10:40:46","date_gmt":"2019-03-14T01:40:46","guid":{"rendered":"http:\/\/141.164.34.82\/?p=1023"},"modified":"2022-02-03T17:23:46","modified_gmt":"2022-02-03T08:23:46","slug":"functions","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=1023","title":{"rendered":"\ud750\ub984\uc81c\uc5b4 02: \ud568\uc218"},"content":{"rendered":"<h1>\ud568\uc218<\/h1>\n<h3>\ud568\uc218(Functions)<\/h3>\n<ul>\n<li>\uc2a4\ud06c\ub9bd\ud2b8\uc640 \uac19\uc774 <strong>\ubc18\ubcf5\ud574\uc11c \ud65c\uc6a9\ud558\uac8c \ub420 \ucf54\ub4dc<\/strong>\ub97c \ubaa8\uc544 \ub193\uc740 \uac83.<\/li>\n<li><strong>\ub9e4\ubc88 \ub3d9\uc77c\ud558\uac8c \uc2e4\ud589\ub418\ub294 \ubd80\ubd84<\/strong>\uacfc <strong>\ub2ec\ub77c\uc9c0\ub294 \ubd80\ubd84<\/strong>\uc73c\ub85c \uad6c\ubd84\ud574 \ubcfc \uc218 \uc788\ub2e4.<\/li>\n<\/ul>\n<h3>\ud568\uc218 \ub9cc\ub4e4\uae30\uc758 \uc608<\/h3>\n<ul>\n<li>\ub2e4\uc74c\uc740 1\uc5d0\uc11c 5\uae4c\uc9c0\uc758 \ud569, 1\uc5d0\uc11c 10\uae4c\uc9c0\uc758 \ud569, 1\uc5d0\uc11c 20\uae4c\uc9c0\uc758 \ud569\uc744 \uad6c\ud558\uace0 \uc788\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">s=0\r\nfor (i in 1:5) {\r\n  s = s + i\r\n}\r\nprint(s)\r\n## [1] 15\r\n\r\ns=0\r\nfor (i in 1:10) {\r\n  s = s + i\r\n}\r\nprint(s)\r\n## [1] 55\r\n\r\ns=0\r\nfor (i in 1:20) {\r\n  s = s + i\r\n}\r\nprint(s)\r\n## [1] 210\r\n<\/code><\/pre>\n<ul>\n<li>\uc5ec\uae30\uc11c \uacf5\ud1b5\ub418\ub294 \ubd80\ubd84\uc744 \ud568\uc218\ub85c \ub098\ud0c0\ub0b4\ub294 \ubc29\ubc95\uc740 \ub2e4\uc74c\uacfc \uac19\uc774 \uc9c4\ud589\ud560 \uc218 \uc788\ub2e4.\n<ul>\n<li><strong>\uacf5\ud1b5\ub418\ub294 \ubd80\ubd84<\/strong>\uc744 \ud655\uc778\ud55c \ud6c4, <strong>\ub2ec\ub77c\uc9c0\ub294 \ubd80\ubd84<\/strong>\uc744 \ubcc0\uc218\ub85c \uce58\ud658\ud55c\ub2e4.<\/li>\n<li>\uc804\uccb4\ub97c <code>{ }<\/code>\ub85c \uac10\uc2fc\ub2e4.<\/li>\n<li><strong>\ubc18\ud658\uac12<\/strong>\uc744 \uba85\uc2dc\ud55c\ub2e4: <code>return( )<\/code><\/li>\n<li><strong>\ud568\uc218\uc758 \uc774\ub984<\/strong>\uacfc <strong>\uc778\uc790<\/strong>\ub97c \uba85\uc2dc\ud55c\ub2e4: <code>= function(a, b, ...)<\/code><\/li>\n<\/ul>\n<\/li>\n<li>\uc774\ub97c \ub530\ub77c \ud574\ubcf4\uc790.<\/li>\n<\/ul>\n<h4>\ub2ec\ub77c\uc9c0\ub294 \ubd80\ubd84\uc744 \ubcc0\uc218\ub85c \ub098\ud0c0\ub0b8\ub2e4.<\/h4>\n<pre><code class=\"r\">s=0\r\nfor (i in 1:n) {\r\n  s = s + i\r\n}\r\nprint(s)\r\n<\/code><\/pre>\n<h4>\uc804\uccb4\ub97c { }\ub85c \uac10\uc2fc\ub2e4.<\/h4>\n<pre><code class=\"r\">{\r\n  s=0\r\n  for (i in 1:n) {\r\n    s = s + i\r\n  }\r\n  print(s)\r\n}\r\n<\/code><\/pre>\n<h4>\ubc18\ud658\uac12\uc744 \uba85\uc2dc\ud55c\ub2e4.<\/h4>\n<pre><code class=\"r\">{\r\n  s=0\r\n  for (i in 1:n) {\r\n    s = s + i\r\n  }\r\n  print(s)\r\n  return(s)\r\n}\r\n<\/code><\/pre>\n<h4>\ud568\uc218\uc758 \uc774\ub984\uacfc \uc778\uc790\ub97c \uba85\uc2dc\ud55c\ub2e4.<\/h4>\n<pre><code class=\"r\">sumToN = function(n) {\r\n  s=0\r\n  for (i in 1:n) {\r\n    s = s + i\r\n  }\r\n  print(s)\r\n  return(s) # \uc5ec\uae30\uc11c return\uc740 \uc0dd\ub7b5\ud560 \uc218 \uc788\ub2e4.\r\n}\r\n<\/code><\/pre>\n<ul>\n<li>\uc774\uc81c \uc0c8\ub86d\uac8c \uc815\uc758\ub41c \ud568\uc218 <code>sumToN<\/code>\uc744 \ud65c\uc6a9\ud558\uba74 \uc55e\uc758 \uae34 \uc2a4\ud06c\ub9bd\ud2b8\ub294 \ub2e4\uc74c\uacfc \uac19\uc774 \uac04\ub2e8\ud574 \uc9c4\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">sumToN(5)\r\n<\/code><\/pre>\n<pre>## [1] 15\r\n<\/pre>\n<pre>## [1] 15\r\n<\/pre>\n<pre><code class=\"r\">sumToN(10)\r\n<\/code><\/pre>\n<pre>## [1] 55\r\n<\/pre>\n<pre>## [1] 55\r\n<\/pre>\n<pre><code class=\"r\">sumToN(20)\r\n<\/code><\/pre>\n<pre>## [1] 210\r\n<\/pre>\n<pre>## [1] 210\r\n<\/pre>\n<h3>\ud568\uc218\uc758 \uc778\uc790<\/h3>\n<ul>\n<li>\uc778\uc790\uac00 \uc5ec\ub7ff\uc77c \ub54c \uad6c\ubd84\ud558\ub294 \ubc29\ubc95\uc740 <strong>1) \uc774\ub984\uc73c\ub85c<\/strong>, <strong>2) \uc704\uce58\ub85c<\/strong>, <strong>3) \ubd80\ubd84 \ub9e4\uce6d(partial matching)<\/strong>\uc774 \uc788\ub2e4. \ub2e4\uc74c\uc758 \ud568\uc218\ub97c \uc608\ub85c \uc124\uba85\ud574\ubcf4\uc790.<\/li>\n<\/ul>\n<pre><code class=\"r\"># startNum\ubd80\ud130 endNum\uae4c\uc9c0 \ub354\ud558\ub294 \ud568\uc218\r\nsumAToB = function(startNum , endNum) {\r\n  s=0\r\n  for (i in startNum:endNum) {\r\n    s = s + i\r\n  }\r\n  print(s)\r\n  return(s)\r\n  8 }\r\n<\/code><\/pre>\n<ol>\n<li>\uc774\ub984\uc73c\ub85c : <code>sumAToB(startNum=1, endNum=5)<\/code>, <code>sumAToB(endNum=5,startNum=1)<\/code><\/li>\n<li>\uc704\uce58\ub85c : <code>sumAToB(1, 5)<\/code><\/li>\n<li>\ubd80\ubd84 \ub9e4\uce6d\uc73c\ub85c : <code>sumAToB(startNum = 1, end=5)<\/code><\/li>\n<\/ol>\n<h4>\uc778\uc790<\/h4>\n<ul>\n<li>\uc778\uc790\ub294 \uae30\ubcf8\uac12(default value)\uc744 \uc124\uc815\ud574 \uc904 \uc218 \uc788\uace0, \uae30\ubcf8\uac12\uc774 \uc8fc\uc5b4\uc9c4 \uc778\uc790\ub294 \ud568\uc218\ub97c \ubd80\ub97c \ub54c \uc0dd\ub7b5\ud560 \uc218 \uc788\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">sumAToB = function(startNum=1, endNum=10) {\r\n  s=0\r\n  for (i in startNum:endNum) {\r\n    s = s + i\r\n  }\r\n  print(s)\r\n  return(s)\r\n}\r\n<\/code><\/pre>\n<ul>\n<li>\ud568\uc218\ub294 <code>...<\/code>(dot-dot-dot)\uc744 \ud65c\uc6a9\ud558\uc5ec \ubd88\ud2b9\uc815 \ub2e4\uc218\uc758 \uc778\uc790\ub97c \ubc1b\uc544\ub4e4\uc77c \uc218 \uc788\ub2e4. \uc774\ub54c\uc5d0\ub294 \ubd80\ubd84 \ub9e4\uce6d\uc774 \ubd88\uac00\ub2a5\ud558\ub2e4. \ubcf4\ud1b5 \ud568 <code>mean<\/code>\uc5d0\uc11c\ucc98\ub7fc \uc778\uc790\uc758 \uac2f\uc218\uac00 \uac00\ubcc0\uc801\uc774\uac70\ub098 \uc778\uc790\ub4e4\uc744 \ub2e4\ub978 \ud568\uc218\ub85c \ub118\uae38 \ub54c \uc0ac\uc6a9\ub41c\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">sqPlot = function(x, y, ...) {\r\n  plot(x, y^2, ...)\r\n}\r\nsqPlot((-3):3, (-3):3)\r\n<\/code><\/pre>\n<p><img src=\"data:image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAAAYFBMVEUAAAAAADoAAGYAOjoAOpAAZrY6AAA6ADo6AGY6OpA6kNtmAABmADpmAGZmZmZmtv+QOgCQOjqQtpCQ2\/+2ZgC2\/7a2\/\/\/bkDrb25Db\/9vb\/\/\/\/tmb\/25D\/\/7b\/\/9v\/\/\/8Elu7RAAAACXBIWXMAAAsSAAALEgHS3X78AAAHuUlEQVR4nO3df1MT2wGA4dV7oQqlYKXQSkK+\/7csAb1TxZkmOYub+D7PjJM\/nLO\/3mzOQshm2pA0Lb0BLEP4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4qJHwE8fsDcMPjOWtCR8lfJTwUcJHCR8lfJTwUcJHCR\/1y8L\/318S8qZ+PP6\/Kvw0uDDGvDr+wjcIH7VYeHP8wpaa4zkywkcJHyV8lPBRwkcJHyV8lPBRwkcJHyV8lPBRwkcJHyV8lPBRwkcJHyV8lPBRwkcJHyV8lPBRwkcJHyV8lPBRwkcJHyV8lPBRwkcNh1+dT2f30\/T+7oCxLGc0\/OOnz5v7s6f+H7\/sPZYFjYZfX91t7i9eHr+N2e1bT1iUMz5qjjn+whx\/elzVRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXzUcPjV+fXjzTT9+eWAsSxnNPzjzfXm9vqp\/8dX5YU\/ZqPh11d3j58+Pz\/+Neab8a3jzQy\/1D+d7g8Xm83D2QFjWc74xd3t89n9urvwR81VfZTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUbuEX51P777\/LoI5Fs2idgi\/\/faRx5sL4X8rO4R\/CX57JvzvZMcz\/sn9Hx+E\/33sMsevLy+2D\/fvhf99uKqPEj5qx\/APP\/kmycFFs6idwt\/+7NvFRhfNona\/qp970SzKGR9ljo9yVR+1U\/j1pZf6382uL\/XT8xt0cy6aRe3+Uv94M017Xd4Lf8x2DP\/ylvx+788Jf8x2nOMPuKgX\/qi5qo8SPkr4KOGjhI8SPkr4qHnCr372B7jzhp+m9hNp7v0fDb++nF68\/hPcWTd0mnuBJ2b2\/R8+49eXT8m\/O+OnbwY37dWGCD\/zAg\/\/72fryz\/\/\/eYv9cIfX\/jtWzg\/+6yFOX5OxzbHv9FY3prwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR8lfJTwUcJHCR81HH51Pr37vNmsr+72H8tyRsM\/3lw\/\/bsQ\/tSMhn8Jfnv2P+Gnb4Y3jrczxxn\/5P6PD874kzI8x68vL7YP9++FPymu6qOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aMy4Ze+J8\/S6\/9RJfy0WXaDll7\/K8I31v+K8I31v1IJv\/gcu\/T6f5QJz\/eEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOEjxI+Svgo4aOGw6\/Op633dweMPSXHdkeLUaPhH2+unx8f\/vyy99hTcnT3sBk1Gn59dffd4+b53HgxuGlHRfgfOONP1PAcv740x58iV\/VRwkcJHyV8lPBRwkcJHyV8lPBRwkcJH\/WW4Tlmbxd+5kUZ\/yvHCx8dL3x0vPDR8cJHxwsfHS98dLxfwkQJHyV8lPBRwkcJHyV8lPBRwkcJHzVf+IeffqJ2d9s7b1wPbcHqw+HrX19Orz8H\/svWPr73ex\/92cJv9\/v+7PDx679\/3qz+9nlgCx4GnnjbuwCMbP3Y2sf3fv+jP+tL\/ciT\/mG72bcDT\/rbd\/88fPXb+30MnbJDa59h7zf7Hv1Zw4+dMy\/P+wED5VYfvyy49heD61\/ujF+dvxvb8sebi7ENOPzQb2\/0snD4wb3f9+jPEv52mp6fbYceupfx68tD9\/zr+k\/6jD987\/9awl7bP++PcyOz1Op8bIobOvTDc\/z4Vf3o3u959GcLP\/piOcOeDxz67evs4BXKUPjRvd\/\/6M93xt9P08gcf\/\/86Y+h3T\/hn+OH937vo+83d1HCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwkfJXyU8FHCRwn\/4nb47+pPjPAv1lf\/uhr80ONpEf6r+2n0s2unRfivxm7KcHqE\/+r2H6kpXvivVh\/\/8yl1ygv\/bHsPnIfBT02eFuGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI8SPkr4KOGjhI\/6L+26OgSm7PoFAAAAAElFTkSuQmCC\" alt=\"plot of chunk unnamed-chunk-9\" \/><\/p>\n<pre><code class=\"r\">sqPlot((-3):3, (-3):3, col='red', pch=3)\r\n<\/code><\/pre>\n<p><img src=\"data:image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAAAY1BMVEUAAAAAADoAAGYAOjoAOpAAZrY6AAA6ADo6AGY6OpA6kNtmAABmADpmAGZmZmZmtv+QOgCQOjqQtpCQ2\/+2ZgC2\/7a2\/\/\/bkDrb25Db\/9vb\/\/\/\/AAD\/tmb\/25D\/\/7b\/\/9v\/\/\/\/U1JimAAAACXBIWXMAAAsSAAALEgHS3X78AAAMEUlEQVR4nO3dcVfTB7pF4a2tTIVxpCMjMwoh3\/9TNgHpKsiUJCebN4HzrHWXf+x7kpf8SvXeVsuy3iSmD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM0i2dcjEBx9sy0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqK8zfZ78FKVe\/T58\/f\/28\/kbbZ98LP64N+oPvg3auTBf78XvFzt7onPn79fPJO32fahz+rf6t+oPvg3qg\/+jRp78HVQiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlFeuT\/hwCe+\/7rCtOUR5ubz5\/cvy8sPq+X\/8tvW2BhHl5XLx6evy8vTux\/vNZv\/VkxpFlPsdf7SI8vL25\/jT\/hx\/fIiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlFeuTz7fnMOv33bY1hyivFzenH9eXnxePf+PPz35Z7c1iCgvl4tPX29+\/3L745+be+FpZSLKK6tv96vT5fLqww7bmkOU1y5uv7t\/fu598AeNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmVjg3x9wruH\/y2Cfbx0jeL5vP6vj9ycn\/bBvyo8n+8e+MWHPvjXhOfz+jt+5fKX3\/rgXw82yIuz0\/UPl+\/74F8Poqxty0aUtW3Z2CxfPfFfkgxfukaxSb546r8ulr50jeL5\/ONX9ft+6RrFJrnf8a8Pm+X+HP\/aEGVtWzY2yYuz\/q3+tWGzfMXtP6Db50vXKDbON+ew1S\/vn3npGsVm+e4fyW\/3z+eeeekaxSZ5cbbDL+r74A8aUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS17RO+7\/fljs6ev36ifO\/6qX8Bd8Ptpvrg94oor\/9\/O9z5+V\/BfXa7nT74vSLKy\/WTXz3yB9\/x3Evueuj7vf295FERvn6ifGtx9ut\/+7d63aF9x69dnzz1ey02226sD36viLK2fUIf\/F4RZW37hD74vSLK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2YjyyvUJ774sl4tPX7ff1hyivFzenH9e\/c9pH\/yxIcr33+kXH\/7y4LmXXVYqonz3Hb9y+ctv\/Y4\/KkR5ZXF2uv7h8n0f\/FEhytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1raC72\/8\/R8hytpWMP3BT7\/\/I0RZ2wqmP\/jp93+EKGtbwfQHP\/3+jxBlbbtn3++90fd\/AlHWtoLpD336\/R8hytpWMP3BT7\/\/I0RZ2wqmP\/jp93+EKGtbwfQHP\/3+jxBlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ratmxEWduWjShr27IRZW1bNqKsbctGlLVt2Yiyti0bUda2ZSPK2rZsRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bERZ25aNKGvbshFlbVs2oqxty0aUtW3ZiLK2LRtR1rZlI8ra9gAd2O92TRFlbXuA+uAfuj5h7f3XHbZHpQ\/+gZvzz7c\/Xv36bevtcemDf2Dx6euDH9ebe8ldh+UA\/9SqFFHud\/zRIsori7P+HH+MiLK2PUB98Ht66WPTB7+nl65RRFnblo0oa9uyEWVtWzairG3LRpS1bdmIsrYtG1HWtmUjytq2bET577d1yLwHv+eX6v4l9+m77fGlun\/Jffpue3yp7l9yn77bHl+q+5fcp++2x5fq\/iX36bvt8aW6f8l9+m57fKnuX3KfvlsdKaYPqBlMH1AzmD6gZjB9QM1g+oCawfQBNYPpA2oG0wfUDKYPqBns7ZWunvwdtZtb\/8kbn6MLrn\/b\/f0XZ\/z8+8Bf7N3zr37rT5\/gzR5Yf92XH3bfL\/75ZXn9jy\/BBVfBX3jrPwUguT579\/yr3\/7TZ+f3+j9vv6ur9dkXwV\/0F+\/+vfvbr\/+8j+hbNnr3PXz1y20\/faL3eiT7nrn76z4QPLnrj98G3\/1O+P5z3\/HXJ++yy2\/OT7MDdv\/o13\/Qy\/CDD7\/6bT99kje7dwG3f7Xt+tHd7Rdnu37lP97\/qL\/jd\/\/q\/3yFre4nfLeHkp+lrk+yn+Kijz7+OT7\/VX361W\/56RO\/3Q\/p3yz38JUHH\/3677Phr1CiB59+9dt\/+kTv91eXkPwcf3n7uz+iL\/+I\/+\/4+Kvf+tNn9\/eqY8b0ATWD6QNqBtMH1AymD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM5g+oGYwfUDNYPqAmsH0ATWD6QNqBtMH1AymD6gZTB9QM5g+4EBcxP9e\/ZFh+oADsfj0n0\/hb3o8LkwfcCguSX\/v2nFh+oBDkf2hDMeH6QMOxcW\/3tRP8X3wP1x\/\/N\/vb+pbnukDDsP6z8C5Cn\/X5HFh+oCawfQBNYPpA2oG0wfUDKYPqBlMH1AzmD6gZjB9QM1g+oCawfQBNYPpA2oG0wfUDKYPqBlMH1AzmD6gZjB9QM1g+oCawfQBNeMPDHcaNtPCZkQAAAAASUVORK5CYII=\" alt=\"plot of chunk unnamed-chunk-9\" \/><\/p>\n<ul>\n<li>\ub9cc\uc57d \ud568\uc218\uac00 \uc81c\ub300\ub85c \uc791\ub3d9\ud558\uae30 \uc704\ud574 \uc778\uc790\uac00 \ud2b9\ubcc4\ud55c \uc870\uac74\uc744 \ub9cc\uc871\ud574\uc57c \ud558\ub294 \uacbd\uc6b0\uac00 \uc788\ub2e4. \uc774\ub54c\uc5d0\ub294 <code>if<\/code>\ubb38\uacfc <code>stop(\"Message\")<\/code>\uc744 \ud65c\uc6a9\ud560 \uc218 \uc788\ub2e4. \ub17c\ub9ac\uc801 \uc624\ub958\uc5d0 \uac15\uac74\ud55c \ud568\uc218\ub97c \ub9cc\ub4dc\ub294\ub370 \ub3c4\uc6c0\uc774 \ub41c\ub2e4. \ub2e4\uc74c\uc758 <code>boxcox<\/code>\ud568\uc218\ub294 <code>x<\/code>\uc640 <code>lambda<\/code> \ub450 \uc778\uc790\ub97c \ubc1b\ub294\ub370 <code>lambda<\/code>\ub294 \uae38\uc774\uac00 1\uc774\uc5b4\uc57c \ud55c\ub2e4. \ub9cc\uc57d \uadf8\ub807\uc9c0 \uc54a\ub2e4\uba74 <code>boxcox<\/code> \ud568\uc218\ub294 \uc5d0\ub7ec\ub97c \ubc1c\uc0dd\uc2dc\ud0a8\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">boxcox = function(x, lambda=1)\r\n{\r\n  if(length(lamdba)!=1) stop(\"the length of lambda must be one.\")\r\n\r\n  if (lambda != 0) {\r\n    return((x^lambda -1)\/lambda)\r\n  } else {\r\n    log(x)\r\n  }\r\n}\r\nboxcox(c(1,3,2))\r\n<\/code><\/pre>\n<pre>## Error in boxcox(c(1, 3, 2)): object 'lamdba' not found\r\n<\/pre>\n<pre><code class=\"r\">boxcox(c(1,3,2), 2)\r\n<\/code><\/pre>\n<pre>## Error in boxcox(c(1, 3, 2), 2): object 'lamdba' not found\r\n<\/pre>\n<pre><code class=\"r\">boxcox(c(1,3,2), c(1,2))\r\n<\/code><\/pre>\n<pre>## Error in boxcox(c(1, 3, 2), c(1, 2)): object 'lamdba' not found\r\n<\/pre>\n<ul>\n<li><code>stopifnot(cond)<\/code>\uc73c\ub85c \ub300\uccb4\ud560 \uc218\ub3c4 \uc788\ub2e4. \uc5d0\ub7ec \uba54\uc138\uc9c0\ub294 \uc870\uac74\ubb38\uc774 \uadf8\ub300\ub85c \ucd9c\ub825\ub41c\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">boxcox = function(x, lambda=1)\r\n{\r\n  stopifnot(length(lambda)==1)\r\n\r\n  if (lambda != 0) {\r\n    return((x^lambda -1)\/lambda)\r\n  } else {\r\n    log(x)\r\n  }\r\n}\r\nboxcox(c(1,3,2))\r\n<\/code><\/pre>\n<pre>## [1] 0 2 1\r\n<\/pre>\n<pre><code class=\"r\">boxcox(c(1,3,2), 2)\r\n<\/code><\/pre>\n<pre>## [1] 0.0 4.0 1.5\r\n<\/pre>\n<pre><code class=\"r\">boxcox(c(1,3,2), c(1,2))\r\n<\/code><\/pre>\n<pre>## Error in boxcox(c(1, 3, 2), c(1, 2)): length(lambda) == 1 is not TRUE\r\n<\/pre>\n<h3>\ud568\uc218\uc640 \uc778\uc790\uc758 \ud074\ub798\uc2a4<\/h3>\n<ul>\n<li>\ubc94\uc6a9\ud568\uc218(Generic function): \uc778\uc790\uc758 \ud074\ub798\uc2a4(class)\uc5d0 \ub530\ub77c \ud568\uc218\uc758 \ud589\ub3d9\uc774 \ub2ec\ub77c\uc9c0\ub294 \ud568\uc218\uc774\ub2e4. <code>methods( )<\/code>\ub97c \ud1b5\ud574 \ud074\ub798\uc2a4\uc5d0 \ub530\ub978 \ud568\uc218\ub97c \ud655\uc778\ud560 \uc218 \uc788\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">options(max.print=10)\r\nmethods(print) # or methods('print')\r\n<\/code><\/pre>\n<pre>##  [1] print.acf*      print.AES*      print.all_vars* print.anova*   \r\n##  [5] print.any_vars* print.aov*      print.aovlist*  print.ar*      \r\n##  [9] print.Arima*    print.arima0*  \r\n##  [ reached getOption(\"max.print\") -- omitted 249 entries ]\r\n## see '?methods' for accessing help and source code\r\n<\/pre>\n<pre><code class=\"r\">methods(summary)\r\n<\/code><\/pre>\n<pre>##  [1] summary.aov                    summary.aovlist*              \r\n##  [3] summary.aspell*                summary.check_packages_in_dir*\r\n##  [5] summary.connection             summary.data.frame            \r\n##  [7] summary.Date                   summary.default               \r\n##  [9] summary.ecdf*                  summary.factor                \r\n##  [ reached getOption(\"max.print\") -- omitted 27 entries ]\r\n## see '?methods' for accessing help and source code\r\n<\/pre>\n<ul>\n<li><code>print<\/code>\ub77c\ub294 \ud568\uc218\ub294 \uc785\ub825\ub418\ub294 \uc778\uc790\uc758 \ud074\ub798\uc2a4\uc5d0 \ub530\ub77c \uc11c\ub85c \ub2e4\ub978 \ud568\uc218\ub97c \ubd80\ub974\ub294\ub370 \uc608\ub97c \ub4e4\uc5b4 \ub9cc\uc57d \uc778\uc790\uc758 \ud074\ub77c\uc2a4\uac00 <code>factor<\/code>\ub77c\uba74 <code>print.factor<\/code>\ub77c\ub294 \ud568\uc218\ub97c \ubd80\ub978\ub2e4. \ub9cc\uc57d \uc778\uc790\uc758 \ud074\ub77c\uc2a4\uac00 <code>xyz<\/code>\uc778\ub370, <code>print.xyz<\/code>\ub77c\ub294 \ud568\uc218\uac00 \uc874\uc7ac\ud558\uc9c0 \uc54a\ub294\ub2e4\uba74, <code>print.default<\/code> \ud568\uc218\ub97c \ubd80\ub978\ub2e4.<\/li>\n<\/ul>\n<h3>\uadf8 \ubc16\uc758 \uba87 \uac00\uc9c0<\/h3>\n<ul>\n<li>R\uc740 \uae30\ubcf8\uc801\uc73c\ub85c Call by value\uc774\ub2e4. \ud568\uc218\uc758 \uc778\uc790\ub294 \uc778\uc790\uc758 \uc8fc\uc18c\uac00 \uc544\ub2c8\ub77c \uac12\uc774 \ud568\uc218\ub85c \uc804\ub2ec\ub41c\ub2e4.<\/li>\n<li>\ud568\uc218 \ub0b4\uc5d0\uc11c \uc0ac\uc6a9\ub41c \ubcc0\uc218\ub294 \ud568\uc218\uac00 \ub05d\ub098\ub294 \uc21c\uac04 \uc0ac\ub77c\uc9c4\ub2e4.<\/li>\n<li>\ud568\uc218 \ubc16\uc5d0\uc11c \ud560\ub2f9\ub41c \ubcc0\uc218\ub294 \ucc38\uc870\ud560 \uc218 \uc788\uc9c0\ub9cc <code>=<\/code> \ub610\ub294 <code>&lt;-<\/code>\ub85c \uc218\uc815\ud560 \uc218 \uc5c6\ub2e4. \ub530\ub77c\uc11c R\uc758 \ud568\uc218 \ub0b4 \ubcc0\uc218\ub294 \ud754\ud788 \ub9d0\ud558\ub294 \uc9c0\uc5ed \ubcc0\uc218(local variables)\ub77c\uace0 \ud560 \uc218 \uc788\ub2e4.<\/li>\n<li>\ub9cc\uc57d \ud568\uc218 \ubc16\uc5d0\uc11c \ud560\ub2f9\ub41c \ubcc0\uc218\uc5d0 \uc0c8\ub85c\uc6b4 \uac12\uc744 \ud560\ub2f9\ud558\ub824\uba74 \uc5f0\uc0b0\uc790 <code>&lt;&lt;-<\/code>\ub97c \uc0ac\uc6a9\ud55c\ub2e4.<\/li>\n<li>R\uc758 \uc5b4\ub5a4 \ud568\uc218\uc5d0 \ub300\ud574 \ub3c4\uc6c0\ub9d0\uc744 \ubcf4\uace0 \uc2f6\ub2e4\uba74 <code>?<\/code> \ub610\ub294 <code>help( )<\/code>\ub97c \uc0ac\uc6a9\ud55c\ub2e4. \uc608\ub97c \ub4e4\uc5b4 \ud568\uc218 <code>read.table<\/code>\uc5d0 \ub300\ud55c \ub3c4\uc6c0\ub9d0\uc744 \ubcf4\uace0 \uc2f6\ub2e4\uba74 <code>help(read.table)<\/code>\uc744 \ucf58\uc194\uc5d0 \uc785\ub825\ud55c\ub2e4.\n<ul>\n<li>\ub3c4\uc6c0\ub9d0\uc758 \uccab \ubd80\ubd84 <code>Usage<\/code>\ub97c \ubcf4\uba74 \ud568\uc218\uc640 \uc778\uc790\uac00 \uc18c\uac1c\ub418\uace0 \uc778\uc790\uc758 \uae30\ubcf8\uac12\uc744 \ud655\uc778\ud560 \uc218 \uc788\ub2e4. \uc5ec\uae30\uc11c <code>numerals=c(\"allow.loss\"\", \"warn.loss\", \"no.loss\")<\/code>\ub85c \ub098\ud0c0\ub09c \ubd80\ubd84\uc740 \uc778\uc790 <code>numeral<\/code>\ub97c <code>\"allow.loss\"<\/code> \ub610\ub294 <code>\"warn.loss\"<\/code> \ub610\ub294 <code>\"no.loss\"<\/code>\ub85c \uc124\uc815\ud560 \uc218 \uc788\uc74c\uc744 \ub098\ud0c0\ub0b8\ub2e4.<\/li>\n<\/ul>\n<\/li>\n<li>\ub9cc\uc57d \ud568\uc218 <code>plot<\/code>\uc5d0 \ub300\ud55c \uc608\uc2dc\ub97c \ubcf4\uace0 \uc2f6\ub2e4\uba74 <code>example(plot)<\/code>\uc744 \ud574\ubcf8\ub2e4. \ub2e4\ub978 \ud568\uc218\uc5d0 \ub300\ud574\uc11c\ub3c4 <code>example( )<\/code>\ub97c \ud574\ubcf4\uc790.<\/li>\n<\/ul>\n<h3>\ub514\ubc84\uae45<\/h3>\n<ul>\n<li>\ub9cc\uc57d script\uc758 \ubd80\ubd84\uc774 \uc774\uc0c1\ud589\ub3d9\uc744 \ubcf4\uc778\ub2e4\uba74 \uc2a4\ud06c\ub9bd\ud2b8\ub97c \ud55c \uc904\uc529 \uc2e4\ud589\ud558\uba74\uc11c \ub514\ubc84\uae45\uc744 \ud560 \uc218 \uc788\ub2e4.<\/li>\n<li>\ud558\uc9c0\ub9cc \uc5b4\ub5a4 \ud568\uc218 \uc548\uc5d0\uc11c \uc774\uc0c1\ud55c \uacb0\uacfc\uac00 \ub098\uc628\ub2e4\uba74 \ud568\uc218\ub97c \ud574\uccb4\ud574\uc11c \ud55c \uc904\uc529 \uc2e4\ud589\ud558\uac70\ub098 R studio\uc758 \ub514\ubc84\uae45\uc744 \uc0ac\uc6a9\ud560 \uc218 \uc788\ub2e4.<\/li>\n<li>R studio\uc5d0\ub294 \ud568\uc218 \ub0b4\ubd80\ub97c \ub514\ubc84\uae45\ud560 \uc218 \uc788\ub294 \ub3c4\uad6c\uac00 \ub9c8\ub828\ub418\uc5b4 \uc788\ub2e4. \ud2b9\ud788 break-point\ub97c \uc9c0\uc815\ud558\ub294 \ubc29\ubc95\uc744 \uc219\uc9c0\ud558\uc790. \uc5d0\ub7ec\uac00 \ubc1c\uc0dd\ub418\uc5c8\uc744 \ub54c, Show Traceback, Rerun with Debug \ub4f1\uc744 \uc0ac\uc6a9\ud560 \uc218 \uc788\ub2e4.<\/li>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>\ud568\uc218 \ud568\uc218(Functions) \uc2a4\ud06c\ub9bd\ud2b8\uc640 \uac19\uc774 \ubc18\ubcf5\ud574\uc11c \ud65c\uc6a9\ud558\uac8c \ub420 \ucf54\ub4dc\ub97c \ubaa8\uc544 \ub193\uc740 \uac83. \ub9e4\ubc88 \ub3d9\uc77c\ud558\uac8c \uc2e4\ud589\ub418\ub294 \ubd80\ubd84\uacfc \ub2ec\ub77c\uc9c0\ub294 \ubd80\ubd84\uc73c\ub85c \uad6c\ubd84\ud574 \ubcfc \uc218 \uc788\ub2e4. \ud568\uc218 \ub9cc\ub4e4\uae30\uc758 \uc608 \ub2e4\uc74c\uc740 1\uc5d0\uc11c 5\uae4c\uc9c0\uc758 \ud569, 1\uc5d0\uc11c 10\uae4c\uc9c0\uc758 \ud569, 1\uc5d0\uc11c 20\uae4c\uc9c0\uc758 \ud569\uc744 \uad6c\ud558\uace0 \uc788\ub2e4. s=0 for (i in 1:5) { s = s + i } print(s) ## [1] 15 s=0 for (i [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":2461,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[28,133],"tags":[203,204],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2019\/03\/bridge-gaa845e444_640.jpg","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1023"}],"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=1023"}],"version-history":[{"count":4,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1023\/revisions"}],"predecessor-version":[{"id":2462,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/1023\/revisions\/2462"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/2461"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1023"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1023"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1023"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}