{"id":2323,"date":"2021-03-25T03:18:48","date_gmt":"2021-03-24T18:18:48","guid":{"rendered":"http:\/\/141.164.34.82\/?p=2323"},"modified":"2022-02-03T17:14:11","modified_gmt":"2022-02-03T08:14:11","slug":"%eb%a9%94%ed%83%80%ed%94%84%eb%a1%9c%ea%b7%b8%eb%9e%98%eb%b0%8d-%ea%b1%b0%ec%9a%b8-%ed%85%8c%ec%8a%a4%ed%8a%b8-%eb%a9%94%ed%83%80-%ec%9d%b8%ec%a7%80-%ec%8a%a4%ec%8a%a4%eb%a1%9c-%eb%b0%9c%ec%a0%84-2","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=2323","title":{"rendered":"\uba54\ud0c0\ud504\ub85c\uadf8\ub798\ubc0d: \uac70\uc6b8 \ud14c\uc2a4\ud2b8, \uba54\ud0c0 \uc778\uc9c0, \uc2a4\uc2a4\ub85c \ubc1c\uc804\ud558\ub294 \ud504\ub85c\uadf8\ub7a8(aka \uc778\uacf5\uc9c0\ub2a5)"},"content":{"rendered":"<h2>\uba54\ud0c0<\/h2>\n<ul>\n<li>\uba54\ud0c0 \uc778\uc9c0\ub77c <strong>\uc778\uc9c0<\/strong>\ub97c <strong>\uc778\uc9c0<\/strong>\ud558\ub294 \uac83\uc774\ub2e4.<\/li>\n<li>\uba54\ud0c0 \ud504\ub85c\uadf8\ub798\ubc0d\uc774\ub780 <strong>\ud504\ub85c\uadf8\ub7a8<\/strong>\uc744 <strong>\ud504\ub85c\uadf8\ub798\ubc0d<\/strong>\ud558\ub294 \uac83\uc774\ub2e4.<\/li>\n<\/ul>\n<h2>\uc790\uae30 \uc778\uc2dd(self-awareness)<\/h2>\n<p>\uc790\uae30\ub97c \uc778\uc2dd(self-awareness)\ud560 \uc218 \uc788\ub294 \ub3d9\ubb3c\uc740 \ub9ce\uc9c0 \uc54a\ub2e4\uace0 \ud55c\ub2e4. \ub2e4\uc74c\uc758 \ub3d9\uc601\uc0c1\uc740 \uc790\uae30\ub97c \uc778\uc2dd\ud560 \uc218 \uc788\ub2e4\uace0 \uc54c\ub824\uc9c4 6\uac00\uc9c0 \ub3d9\ubb3c(\ub3cc\uace0\ub798, \uc6d0\uc22d\uc774, \uae4c\uce58, \ucf54\ub07c\ub9ac, \uac1c, \ubb3c\uace0\uae30!)\uc744 \ubcf4\uc5ec\uc900\ub2e4.<\/p>\n<ul>\n<li><a href=\"https:\/\/www.youtube.com\/watch?v=r31dqznZ3gg\">\ub3d9\uc601\uc0c1<\/a><\/li>\n<\/ul>\n<p>\ub3d9\ubb3c\uc774 \uc790\uae30\ub97c \uc778\uc2dd\ud558\ub294 \uac83\uc744 \uc5b4\ub5bb\uac8c \uc54c \uc218 \uc788\uc744\uae4c? \uacfc\ud559\uc790\ub4e4\uc740 \ub3d9\ubb3c\uc758 \uc5bc\uad74\uc5d0 \ubb54\uac00\ub97c \ubd99\uc5ec\ub193\uace0, \ub3d9\ubb3c\uc774 \uac70\uc6b8\uc744 \ubd24\uc744 \ub54c \uc5b4\ub5bb\uac8c \ud589\ub3d9\ud558\ub294\uc9c0, \ubb54\uac00\ub97c \ubd99\uc5ec\ub193\uc9c0 \uc54a\uc558\uc744 \ub54c\uc640 \ube44\uad50\ud574\uc11c \ub2e4\ub974\uac8c \ud589\ub3d9\ud558\ub294\uc9c0\ub97c \uad00\ucc30\ud55c\ub2e4\uace0 \ud55c\ub2e4. \ubb54\uac00 \uc5bc\uad74\uc5d0 \ubd99\uc5b4 \uc788\uc73c\uba74 \ub5bc\ub824\uace0 \ud558\ub294\uac8c \uc778\uac04\uc744 \ud3ec\ud568\ud55c \ub3d9\ubb3c\uc758 \uc790\uc5f0\uc2a4\ub7f0 \ubc18\uc751\uc778\uac00 \ubcf4\ub2e4. \ubb3c\ub860 \uc790\uc2e0\uc744 \uc778\uc2dd\ud560 \uc218 \uc788\ub2e4\uba74!<\/p>\n<p>\uadf8\ub807\ub2e4\uba74 \ucef4\ud4e8\ud130 \uc5b8\uc5b4\ub294 \uc790\uae30 \uc790\uc2e0\uc744 \uc778\uc2dd\ud560 \uc218 \uc788\uc744\uae4c?<\/p>\n<h2>\uc790\uae30\uc744 \uc778\uc2dd\ud558\ub294 \ud504\ub85c\uadf8\ub7a8<\/h2>\n<p>\uc77c\ub2e8 \uc0ac\ub78c\uc774 \uc9dc \ub193\uc740 \ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc744 \uc0dd\uac01\ud574\ubcf4\uc790.<br \/>\n\uc774 \ud504\ub85c\uadf8\ub7a8\uc740 \uc790\uae30 \uc790\uc2e0\uc744 \ud574\uc11d(\ud574\uc11d\uc774 \ubb50\ub4e0)\ud560 \uc218 \uc788\uc744\uae4c?<\/p>\n<p>\ubb54\uac00 \ubc18\ubcf5\uc774 \uc788\uc5b4\uc11c \uc790\uadc0\ud68c\uadc0\uc801 \ub610\ub294 \uc790\uae30\uc21c\ud658\uc801 \ubaa8\uc21c\uc774 \uc228\uc5b4 \uc788\ub294 \ub4ef \ubcf4\uc774\uc9c0\ub9cc, \ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\uc744 \ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc774 \ubcf4\ud1b5\uc758 \ud504\ub85c\uadf8\ub7a8\uacfc \ub2e4\ub978 \ud2b9\ubcc4\ud55c \uc815\uc131\uc801 \ucc28\uc774\uac00 \uc788\uc9c0 \uc54a\ub2e4\uba74, \ub2e4\ub978 \ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud558\ub294 \uac83\uacfc \ubcc4 \ub2e4\ub97c \uac8c \uc5c6\uc744 \uac83\uc774\ub2e4.<\/p>\n<p>\ub2e4\uc74c\uc744 \ubcf4\uc790.<\/p>\n<blockquote><p>\ud504\ub85c\uadf8\ub7a8 A\ub294 \ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud55c\ub2e4.<\/p><\/blockquote>\n<p>\ub9cc\uc57d \ud574\uc11d\ud574\uc57c \ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc774 \ud504\ub85c\uadf8\ub7a8 A\ub77c\uba74, \u201c\ud504\ub85c\uadf8\ub7a8 A\ub294 \ud504\ub85c\uadf8\ub7a8 A\ub97c \ud574\uc11d\ud55c\ub2e4.\u201d \ub610\ub294 \u201c<strong>\ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud558\ub294 \ud504\ub85c\uadf8\ub7a8<\/strong>\uc740 <strong>\ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud558\ub294 \ud504\ub85c\uadf8\ub7a8<\/strong>\uc744 \ud574\uc11d\ud558\ub294\ub2e4.\u201d \ub77c\uace0 \uc4f8 \uc218 \uc788\uc5b4\uc11c, \uba38\ub9ac \uc544\ud504\uac8c \ubb54\uac00 \ubcf5\uc7a1\ud558\uac8c \uaf2c\uc5ec \uc788\ub294 \ub4ef \ubcf4\uc774\uaca0\uc9c0\ub9cc, \ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud558\ub294 \ud504\ub85c\uadf8\ub7a8 A\ub294 \uc774\ubbf8 \ubaa8\ub4e0 \ud504\ub85c\uadf8\ub7a8\uc774 \uac00\uc9c0\ub294 \ubb38\ubc95\uc744 \uc219\uc9c0\ud558\uace0 \uc788\uae30 \ub54c\ubb38\uc5d0(\uac00\uc815) \ud504\ub85c\uadf8\ub7a8 A\ub294 \ub2e4\ub978 \ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud558\ub4ef\uc774 \ud504\ub85c\uadf8\ub7a8 A\uc758 <strong>\ubcf5\uc0ac\ubcf8<\/strong>\uc744 \ud574\uc11d\ud560 \uc218 \uc788\uc744 \uac83\uc774\ub2e4.<\/p>\n<p>\ubb38\uc81c\ub294 \ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud558\uc5ec \uc218\uc815\ud558\ub294 \uacbd\uc6b0\uc5d0 \ubc1c\uc0dd\ud558 \uc218 \uc788\uc744 \uac83\uc774\ub2e4. \ud504\ub85c\uadf8\ub7a8 B\ub294 \ud504\ub85c\uadf8\ub7a8\uc744 \ud574\uc11d\ud55c \ud6c4 \ud2b9\ubcc4\ud55c \ubc29\ud5a5\uc73c\ub85c \uc218\uc815\ud55c\ub2e4\uace0 \ud574\ubcf4\uc790. \ud504\ub85c\uadf8\ub7a8 B\ub294 \ud504\ub85c\uadf8\ub7a8 B\ub97c \uc218\uc815\ud560 \uc218 \uc788\uc744\uae4c?<\/p>\n<p>\uc774\ub54c\uc5d0\ub294 \uc218\uc815\ud558\ub294 \ud504\ub85c\uadf8\ub7a8 B\uac00 \uc790\uae30 \uc790\uc2e0\uc778\uc9c0 \ubcf5\uc0ac\ubcf8\uc778\uc9c0\uc5d0 \ub530\ub77c \uacb0\uacfc\uac00 \ub2e4\ub974\uac8c \ub420 \uac83\uc774\ub2e4.<\/p>\n<h2>\uc778\uacf5\uc9c0\ub2a5\uacfc \uc790\uc2e0\uc744 \uc218\uc815\ud558\ub294 \ud504\ub85c\uadf8\ub7a8<\/h2>\n<p>\uc5f0\uacb0\uc8fc\uc758 \uc778\uacf5\uc9c0\ub2a5\uc774 \ub4dd\uc138\ud558\ub294 \ud604\uc7ac\uc640 \ub2ec\ub9ac \uc608\uc804\uc758 \uc778\uacf5\uc9c0\ub2a5\uc740 IF-ELSE\ub85c \uac00\ub4dd\ud55c \ud504\ub85c\uadf8\ub7a8\uc774\uc5c8\ub2e4.<\/p>\n<p>\uc778\uac04\uc758 \uc9c0\ub2a5\ub3c4 \uacb0\uad6d\uc740 \uc815\ubcf4\ucc98\ub9ac\uc2dc\uc2a4\ud15c\uc774\ub77c\ub294 \uac00\uc815\uc5d0\uc11c, \uc778\uac04\uc758 \uc9c0\ub2a5 \uc5ed\uc2dc \ud504\ub85c\uadf8\ub7a8\uc774\ub77c\uace0 \uc0dd\uac01\ud560 \uc218 \uc788\ub2e4. \uadf8\ub7f0\ub370 \uc778\uac04\uc758 \uc9c0\ub2a5\ucc98\ub7fc \uc2a4\uc2a4\ub85c \ud559\uc2b5 \ub610\ub294 \ubc1c\uc804\ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc774 \ub418\ub824\uba74, \ud504\ub85c\uadf8\ub7a8\uc774 \ud504\ub85c\uadf8\ub7a8\uc744 \ubc1c\uc804\uc2dc\ucf1c\uc57c \ud558\ub294 \uc0c1\ud669\uc774 \ub418\ub294 \uac83\uc774\ub2e4.<\/p>\n<p>\uadf8\ub9ac\uace0 LISP\uc640 \uac19\uc740 \uc5b8\uc5b4\ub294 \uc2a4\uc2a4\ub85c \ud504\ub85c\uadf8\ub798\ubc0d\uc744 \uc0dd\uc131 \ubcc0\ud615\uc2dc\ud0ac \uc218 \uc788\uae30 \ub54c\ubb38\uc5d0 \uc778\uacf5 \uc9c0\ub2a5\uc744 \uad6c\ud604\ud560 \ucd5c\uc801\uc758 \uc5b8\uc5b4\ub85c \uac01\uad11\ubc1b\ub358 \uc2dc\uc808\uc774 \uc788\uc5c8\ub2e4. \uc544 Good Old-Fashioned (AI)!<\/p>\n<h2>\uc2a4\uc2a4\ub85c\ub97c \uc218\uc815\ud558\ub294 \ud504\ub85c\uadf8\ub7a8<\/h2>\n<p>\ud504\ub85c\uadf8\ub7a8\uc744 \uc218\uc815\ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc744 \ub2e4\uc2dc \uc0dd\uac01\ud574\ubcf4\uc790. \ub9cc\uc57d \uac19\uc740 \ud504\ub85c\uadf8\ub7a8\uc774\ub77c\uace0 \ud574\ub3c4, \uc218\uc815\ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uacfc \uc218\uc815\uc744 \ub2f9\ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc774 \ub2e4\ub974\ub2e4\uba74(\ub610\ub294 \uc218\uc815\uc744 \ub2f9\ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc774 \uc218\uc815\uc744 \ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc758 \ubcf5\uc0ac\ubcf8\uc774\ub77c\uba74), \ub17c\ub9ac\uc801\uc73c\ub85c \ud070 \ud558\uc790\uac00 \uc5c6\ub2e4.<\/p>\n<p>\uc54c\ud30c\uace0 \uc81c\ub85c\uac00 \uc790\uc2e0\uc758 \ubcf5\uc0ac\ubcf8\uacfc\uc758 \uc2dc\ud569\uc744 \ud1b5\ud574 \ubc1c\uc804\ud574 \uac00\ub294 \uacfc\uc815\uc744 \uc0c1\uc0c1\ud574 \ubcf4\uc790. \ub3d9\uc77c\ud55c \ud504\ub85c\uadf8\ub7a8\uc774\uc9c0\ub9cc, \uc6b0\uc5f0 \ub610\ub294 \uc0c1\ub300\ubc29\uc758 \ubc18\uc751\uc5d0 \ub530\ub77c \ub2e4\ub974\uac8c \ud559\uc2b5\ub418\uae30\ub3c4 \ud55c\ub2e4.<\/p>\n<p>\ud558\uc9c0\ub9cc \uc2a4\uc2a4\ub85c\uac00 \uc2a4\uc2a4\ub85c\ub97c \uc218\uc815\ud558\ub294 \uacfc\uc815\uc744 \uc0dd\uac01\ud574\ubcf4\uc790. \uc774\ub294 \ub370\uc774\ud130 \ubca0\uc774\uc2a4\uc5d0 \uc77c\uad00\uc131\uc5c6\ub294 \ub370\uc774\ud130\uac00 \uc3df\uc544\uc9c0\uac70\ub098, \uc911\uad6c\ub09c\ubc29\uc758 \uc218\uc815\uc694\uad6c\uac00 \ube57\ubc1c\uce58\ub294 \uc0c1\ud669\uc73c\ub85c \uc0dd\uac01\ud560 \uc218 \uc5c6\ub2e4. \ubb34\uc791\uc815 \uc694\uad6c\ub97c \ubc1b\uc544\ub4e4\uc774\ub2e4\ubcf4\uba74 \ub370\uc774\ud130\ub294 \uacb0\uad6d \uc77c\uad00\uc131\uc774 \uc5c6\uc5b4\uc9c4\ub2e4.<\/p>\n<p>\uba87\uba87 \uacfc\ud559\uc790\ub4e4\uc740 \ub1cc\ub97c \uc5f0\uad6c\ud558\ub294 \ud55c\uacc4\uac00 \uc788\ub2e4\uace0 \uc8fc\uc7a5\ud558\uae30\ub3c4 \ud55c\ub2e4. \uadf8 \uc774\uc720\ub294 \uc815\ud655\ud788 \ubaa8\ub974\uc9c0\ub9cc, \uc790\uae30 \uc790\uc2e0\uc744 \uc5f0\uad6c\ud558\uba74\uc11c, \uc790\uc2e0\uc758 \ub1cc\uac00 \ubc14\ub00c\uac8c \ub418\uae30 \ub54c\ubb38? \uc5b4\uca0b\ub4e0 \ub1cc\ub97c \uc5f0\uad6c\ud558\uba74\uc11c \ub1cc\uac00 \uc601\ud5a5\uc744 \ubc1b\ub294 \uac83\uc740 \ud2c0\ub9bc\uc5c6\uc744 \uac83\uc774\ub2e4. \uadf8 \uc601\ud5a5\uc774 \uc5b4\ub5a4 \uac83\uc77c\uc9c0\uc5d0 \ub300\ud574\uc11c\ub294 \ud655\uc5b8\ud558\uae30 \uc5b4\ub835\ub2e4. \uc5b4\uca0b\ub4e0 \uc778\uac04\uc740 \ub9e4\uc77c \ud559\uc2b5\ud558\uace0 \ub9e4\uc77c \uc870\uae08\uc529 \ubcc0\ud558\uace0 \uc774\ub2e4.<\/p>\n<p>\uc790\uae30\ub97c \uc778\uc2dd\ud558\ub294 \uac83\uc740, \uc0dd\uac01\ubcf4\ub2e4 \ud070 \ud568\uc758\ub97c \uc9c0\ub2c8\uace0 \uc788\ub2e4.<\/p>\n<h3>\uc774 \uc5b4\ub824\uc6b4 \uac83\uc744 R\uc774 \ud569\ub2c8\ub2e4!<\/h3>\n<h2>Advanced R(2nd Ed)<\/h2>\n<p>\ucd5c\uadfc\uc5d0 Advanced R\uc758 \ub450\ubc88\uc9f8 \ud310\uc744 \ubcf4\uace0 \uc788\ub294\ub370, Hadley\uc758 R\uc5d0 \ub300\ud55c \ud5cc\uc2e0\uc5d0 \ud0d0\ubcf5\uc744 \ud560 \uc218 \ubc16\uc5d0 \uc5c6\ub2e4. R\uc758 \uc911\uad6c \ub09c\ubc29\uc778 \ud568\uc218\ub4e4\uc744 \uae54\ub054\ud558\uac8c \uc815\ub9ac\ud558\uace0 \uc77c\ubc18\uc778\uc774 R\uc758 \uba54\ud0c0 \ud504\ub85c\uadf8\ub798\ubc0d\uc744 \ud65c\uc6a9\ud560 \uc218 \uc788\uac8c \uc124\uba85\ud574 \ub193\uc558\ub2e4.<\/p>\n<h2>\ud65c\uc6a9\uc608<\/h2>\n<p>\uc6b0\uc120 \ud14c\uc2ac\ub77c(tsla)\ub97c \ube44\ub86f\ud55c \uba87\uba87 \ud68c\uc0ac\uc758 \uc8fc\uac00 \ucd94\uc774\ub97c \uac10\uc0c1\ud574\ubcf4\uc790.<\/p>\n<pre><code class=\"r\">if (!require(BatchGetSymbols)) install.packages('BatchGetSymbols')\r\n\r\nlibrary(BatchGetSymbols)\r\n\r\n# set dates\r\nfirst.date &lt;- Sys.Date() - 365\r\nlast.date &lt;- Sys.Date()\r\nfreq.data &lt;- 'daily'\r\n# set tickers\r\ntickers &lt;- c('FB','MMM','PETR4.SA','tsla')\r\n\r\nl.out &lt;- BatchGetSymbols(tickers = tickers, \r\n                         first.date = first.date,\r\n                         last.date = last.date, \r\n                         freq.data = freq.data,\r\n                         cache.folder = file.path(tempdir(), \r\n                                                  'BGS_Cache') ) # cache in tempdir()\r\n<\/code><\/pre>\n<pre>## \r\n## Running BatchGetSymbols for:\r\n##    tickers =FB, MMM, PETR4.SA, tsla\r\n##    Downloading data for benchmark ticker\r\n## ^GSPC | yahoo (1|1) | Found cache file\r\n## FB | yahoo (1|4) | Found cache file - Got 100% of valid prices | OK!\r\n## MMM | yahoo (2|4) | Found cache file - Got 100% of valid prices | Good stuff!\r\n## PETR4.SA | yahoo (3|4) | Found cache file - Got 96% of valid prices | Looking good!\r\n## tsla | yahoo (4|4) | Found cache file - Got 100% of valid prices | You got it!\r\n<\/pre>\n<pre><code class=\"r\">print(l.out$df.control)\r\n<\/code><\/pre>\n<pre>## # A tibble: 4 x 6\r\n##   ticker   src   download.status total.obs perc.benchmark.dates threshold.decision\r\n##   &lt;chr&gt;    &lt;chr&gt; &lt;chr&gt;               &lt;int&gt;                &lt;dbl&gt; &lt;chr&gt;             \r\n## 1 FB       yahoo OK                    252                1     KEEP              \r\n## 2 MMM      yahoo OK                    252                1     KEEP              \r\n## 3 PETR4.SA yahoo OK                    245                0.956 KEEP              \r\n## 4 tsla     yahoo OK                    252                1     KEEP\r\n<\/pre>\n<pre><code class=\"r\">library(ggplot2)\r\n\r\np &lt;- ggplot(l.out$df.tickers, aes(x = ref.date, y = price.close))\r\np &lt;- p + geom_line()\r\np &lt;- p + facet_wrap(~ticker, scales = 'free_y') \r\nprint(p)\r\n\r\n#l.out$df.tickers\r\n\r\n#str(l.out$df.tickers)\r\n\r\ndat &lt;- l.out$df.tickers %&gt;% \r\n  filter(ticker == 'tsla') %&gt;%\r\n  select(ref.date, price.open, price.high, price.low, price.close, volume)\r\n<\/code><\/pre>\n<p><img title=\"plot of chunk unnamed-chunk-1\" src=\"data:image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAABX1BMVEUAAAAAADoAAGYAOmYAOpAAZmYAZrYZGT8ZGWIZP4EZYp8aGhozMzM6AAA6ADo6AGY6OgA6OmY6OpA6kNs\/GRk\/P4E\/YmI\/Yp8\/gYE\/gZ8\/gb1NTU1NTW5NTY5NbqtNjshiGRliGWJiP2JiP4FiYj9iYmJigb1in59in9lmAABmADpmAGZmOgBmOpBmtttmtv9uTU1uTY5ubqtujshuq6tuq+SBPxmBPz+BYoGBgb2BvZ+BvdmOTU2OTY6ObquOjk2OjsiOq+SOyP+QOgCQOjqQOmaQ2\/+fYhmfYj+fYmKfgT+fvYGf2dmrbk2rbo6r5P+2ZgC2\/7a2\/\/+9gT+9gWK9vdm92Z+92b292dnIjk3Ijm7Ijo7IyP\/I\/\/\/Zn2LZvYHZvb3Z2Z\/Z2b3Z2dnbkDrb\/7bb\/\/\/kq27kq47k\/8jk\/\/\/r6+v\/tmb\/yI7\/25D\/5Kv\/\/7b\/\/8j\/\/9v\/\/+T\/\/\/\/ffTjdAAAACXBIWXMAAAsSAAALEgHS3X78AAAdoElEQVR4nO3djZ\/etH0A8F8Zg8DRdit03e5oUrp1S6Db0ZSwbqEpXLvAttDQZOsI6R0jxzg45XI54v\/\/M79IlixLtmRb7z\/x4bkn1iNL8vfRY\/lNggpDkQFCFwBDmIDwhQaELzQgfKHBFP4411BqjRG+0BojfKE1RvhCa4zwhdYY4QutMcIXWuO44D9\/bWdnZ\/eofnnpUz85hoQ\/unTn+NG7V4d\/3GcbJfyPmtej3ePjj276yTEo\/Is366\/61eEf99nGDf\/vd\/zkGBT+r\/7++L\/+7urwj\/tso4Svf+ov3Wl+6i+VAP83v\/qfX\/3H1eEf99lGCd+3+Pu7fnIMCr\/70b\/+y\/2rwz\/us40c3sMWaENQ+KOfXW3ExT\/us40YvpRe\/e4Xb9xpxMU\/7rONET5AKLXGCF9ojRG+0BojfKE1RvhCa2wKT8Qw\/JeTCG9ZmNU4ZDm323hijREe4REe4REe4RE+dDkR3kkWCI\/wCI\/wCI\/wwcuZMTxstiabiLLggSD8YDnCB4YHxfINs9AuR3genn28d0V4QfjZlUQWMVoOZvBnN6rP7tYvDw7aF4SfXUlkEUvh6zb\/+8Ov79ZfgPalql555RXt9tkigLYgAcPCbRxDxGL4i\/eu1G2+Nv+sg5c3A7Z4n+X02eJZY\/\/aGzxEB59TgDG0Cv7koOb2uo+HCOFtVhJZhLQc2PY16NVfPvXaq0f4TSPG8GAEP7sZEN5nORF+44iS4GM9c2cEDxvnXRA8QfjR8lLg+fKo4MEEHjbLW1gTwoeDb8vlEx4QHuHzhweC8HRFef7Ug3Y5wtMVlQY\/XJ4evHBIsipvhEd4hE8PXr5RzwZ+dDoD4REe4f3CS5AIbx1REPwgiRU8X549vLCRUoMH9gfhpyKKgZfO7xvnDSXBQ+LwQBB+LiJDeGD34YIx\/Ki6g9UJyxE+MXggC+EB4VOCBwX8VOduAr6ozt2gccQJr2ek92mM4cm4Vn0Sbd5FwYNiEyUKzz41Ot2H8IrlScMDEIQ3iMgPngjwwDoEK+AHy7OBh6zhAaq2g0+75jxJHSEmLxgecoDv7whnR3RAKhA+Cn2Fh\/CKgxghbrCc1u\/kQHhyLGV4kODHn7eDdxlg8GcQw56cb1o6\/bf4MH3zz\/Yz3SeFNerrpYx5sNc8KFrzax4TLRfeZdktWjwZtvj+jvw6ek2Lv\/jTCYX3NBSEg0C\/+nIL0H7ccLUb+Goj+h\/ukVZ\/sK6Fpy9D+OER\/uAcBuh\/6quTvRuVZiiIZFo8yPv48eeThQe5PmJ3ny\/o\/1EZwp\/ULV43FEQK8HQLtfCDg17p83HCg7BcCz+sziQ8yPDyQY8AX\/\/aX0l4H6+AB9XnU4QnXaVU8N1PgbiArdMU\/uK9vR8fJtyrZ00DKPzolzFaeGIGP3qydgK+SWYEP1NjhHdQdmF3LMEDMYJnA7wo4UlR8N22ajfFuC8UGTyI8LAOnnNr4Mf9xyzhIWp46CLs4eX6qOB5T6c8eHqGWzfaRDTwg7IbwY\/WpIZnQ\/4M+\/tSmVKBl7\/soxQqeOXnQ8PDGF64mwroC\/RvJ+BZBMjw4xY\/KlMi8GNFOYVwZ0p3yBs5PCgWEg7Pir8InkYIO7s84IeHPv3CVODHXW4iCW0EL2yTQuDpr12i8P2VWP7pmSzE2zPEcSCg3w5ZwKu3xRBe7C9JOcQP3wEi\/BheABaWSssThe+fl7CAJ\/nDD\/ZiEnz\/oar\/qCqHOODl0rG9tAwvPf+iy2IaXn8jUibwg20UM\/xoXMOeuZLhbVv84JQAAL1VN2F4sb\/bKYMMP7eNooGHcQSHV+yj5rPQwBMKD6MEqcK39RnBz6ypEPhhRC7wIOBLpz1n1xQLPFHAM7VK1Ss1yIL\/4OUDD0K1QDy5qTy4n1hTIvCK3sl8Frznnj08yRZ+SRYw\/r5weJIqvHiwQhBeFTEFT\/KAH0Wwf8yuKRp4VQSt3ubw46hY4EEXweJBaOzDGkBe8KrevmkWE\/DqBAnAV6y3OtpZITyZg9cmSAhePgOVIjy4gx+17Vzg5eO3JsWgiz+bdwzwgPAsWMBLlauGXfzZvOfg2ZMFr991NtNkf15uc3jdxUhdggjgYRghf3eBRziGb58ju3i\/ameSdzO3rB6enqIoG16sAxATeNjop\/7s4Pztvcunzh4aBulxXjEKtFFGa97qiX8zRxfwoIEnenjYCP7i1mkNfv6Bs\/nj9Z27lS1ee9+JLsFGX5MVQfqqgvTVn\/4is0ElrL\/vys9f\/Pqw+eNw\/njQRTC68PA2K1kVIbV4kPZX0yezhEP8+bznWvz5Lw67SeTdzR8\/Cb8qi\/GZmljh+92zAM+uxwh9NkN488Lq4R\/s7e3dcDt\/\/BT8uiwSh4eQ8LObAeHXl1PX4kG6FmMIb1HYQPBSSREesocHWo9BSR12msyyyAF+ydUJf\/Di8xEgRlivaaOIOODlB8DlljED33UJDPMOBC9cUM4SfnRyZSZF3xKG8NLK0oVnR2f5wxv1rCfh+UlZhHcXsX2LNzmJYg1v0HNCeKuIKOCFa+xL4cfXpaKC789LDL+ixcGDDE+G8P3K+N9Z+IlCKZZ7ghdHPOlbe7nwsDn8wltPHMJT5g5+WCWEhw4eJuHBAF4+XTtfWF\/w\/EeeL84UXiTQwfNzbT08XbQYfqpQiuUI371uBS91rw3gCWwBb70c4bvXQPDiuFT5wSu68dJPYnnwFT98H479MIKHpOD5ASjw7y3C80\/REYa7PXxO8P2BiB4eioUHQtiQPMIeMAd44QE\/LTyUBy8cllN4Mg1Pt+Cy+w\/DwItHKv2XQEyB8MbwfcRc5jbLw8Eb7ArzhpcPvZkv5AA\/OFgpHR5m4KFLkTg8YQ9ygxrepPObNTzRwMsDXKQLz6uwWdmzhZcmTUoTnh2s8CogfP8hxZrU8IbD91ovdwpPEF781Aw8QXiTLLaKiAiejEY5QXh3EQP49fPHa+Bpp4f\/QwMv9\/VjgTcNbJZ3cd1Ts7lHEpr549vpZZfPLZspvNGKiTSnFK9D5C2+nT\/+4W9WDQUB6q3ZtIL+m6\/d2qB6TN62BFbBJTwL8cO3P\/V1Sz+7sXz+eNriQYro9nuzLZ6oWvxM3jG1eJV7KvAPD\/VDQcyXsz87Lf0+0w5Pfy5LX04Jnv8T4beNkOGnhoJYDM921dB\/BuEXlT3aXj2VlXtkFvDDCIR3FrHtcXwPTwbnWRfDr4lAeIMsNoGHITzdlbPuXrnwC0Yhjxte\/hlWwgPCFwYPCN+FAuBBgKc3yvX7dm5eHPyGZY8EXjq5gvAI3\/1B+K3LHin8YGgntmMXL9sg\/Mqypww\/OMDfoAKRwDdVLReeFAsv3l7psOzRwovLmy1RIfymZUd4gwjP8AQWzw+5QYKo4OmZC0D4UuH7z2UL3524QHj6ZwQ\/umy3QQUQfk0W28KzaITfuuyJwHcRw4cgYesKIPyaLBAe4RHeHp6eikb4\/k8R8IDwyrWLi3OG91H2KOBHDzsUCw+aiO3LjvAGEQhvkMUW8KpLFB5+FTeHZ\/PHG880CbqI7cuO8AYRS+Hb+ePbZ4kM55ZF+PlcB9PLWZXT60\/92UH79KDhQ8PRP\/6+WQD2CuOlaQXt\/PHt88Jm88eDLsLBlzZwi+fX2\/vlmtsQPFRg+xbfzB8vtniELwO+nT\/eYh9fNPxo1KLNy+kP3nb++ELg+b0UucLPbobC4bsLUvTZSIT3U\/aQ8MO5gxAe4QNVAOHXZLEafjwKua8KIPyaLCzg2dk3GT5UBRB+TRbL4VtyhPdU9rC9ehGeIHxJ8Pxgvnh4KAieIDwPCB+qAqHh14zBmB68eE2mg3ddzkjhjSYMRXivEQhvkIUdPEF4FgqDJwhPQ2nwYme2cPiSevVk8FyU5uabjcuJ8E6yWANPdMdym5YT4Z1kgfDL4X2WHeENIhDeIAtjeLFLx98ivKeyI7xBBMIbZIHwS+Dl4xmEd1DO+ODbW1LKgxdCqfBACMI7LyfCO8mC1u+keVLs\/PrEhIMIP4T3XHZH8M004tWzjy+f6qcYLRR+HAA0E2cnGNppxKuTd25NTCOuqqnrub4dhsUtvr9W5fdL6\/Cn\/vz6N3RYgHGNy23xoxXkB3\/SPCSsn0Yc4XOFbwcCwX18ofDYqy8MfqbGCN+vAOFJ0fC+yx4IXvMUPMJ7KzvCG0QgvEEWpvDK+m45NUMi8K4fGEP4FRHO4LW3FecKL19+5suLgh9fnPFX9hDw4\/sO+hiE91X2uOAJwvsqe2TwQX09wwPC+y1nVPDONwPCr4hAeIMsTGrcD20YpJzRwIP+hFWu8PK9hV7LifBOskB4hEd4hB\/DhytnRPCV++9\/VPAE4Ump8AHL6Rr+6TX4p9\/dnt8MBHyM+IPwKyKs4L\/97f4n+09+8NU8PEF4r+V0DP\/0rXuf7NcvCF8YfNviHz+PLV5Z44zhm308PKdr8JViBUHKjvAGEW569WHLjvAGEXbwj1+o2\/x+9\/7koJlk8vW7hvPHeyw7whtE2O3jf3f7yxdor755Wvzi\/YpOMIvwYcvpoVf\/aterb58WP3977\/LE0+IYEg+8xf\/bH968zY7ja\/ga\/PwDs\/njfX5pscUbRFju4+H5\/3uTnrlrnx01nj\/eZ9kR3iBiea++GSagbvSG88f7LDvCG0TYwYvH8V2vXpw\/HkNmQTxzV\/\/ca8\/cYcgsiL16+oKhhIAtvtBgeq4eQ2Yh2QH6MKwLFL5p7k3QNvnjXIN2y4QumLMwgJ8NoUvrLJRaY+HM3fNfPfme9p670KV1FoqH\/7a50VJ\/z13o0joLxcPPHMeHLq2zUDz8zHF86NI6C8XDzxzHhy6ts4Dw08FNGY52dnYu3Wled\/7hJ837\/3ytft2tYz7\/4afNBz7c2Xm5+fOym\/yPg8P\/b1vN46NdP9k1QQXvex\/f1Pdol9b6i7\/99PjzHx0fP\/rnm8eP3n2p2SJHNfiHV4+\/+OlP77gpQGj4ps5NCA3vvcXr4O\/\/dbtFaLu\/v3v\/qpsChIa\/v\/PyFz9pfvR2P39t58WbXvKMAr7\/qb9057iF737qP\/\/hH7umUEe99Gn9TaDfAAcheIuvv9OP\/vtot\/7Nd\/ftHgQZfvqhSTdl6Nr6sMU3xvfpnr4J95vG4K41BIevW\/yLN492H727sxMEfuahSTdlUMG3O\/bjbud3\/+UGvt7Lu9sJBoc\/7vZ2H91sejM+ggQ\/89CkmzJQ+J22gTP44w93u6ZQ\/7vu1b\/0xzfqnt0Xbzjq3oWFf\/Tuy\/fbvd1uvRF+5qeHp2rxeAKnmBrjCZxCa4yXZQutsfaybHtn9cV7ez8+LGEzFAwvX5Y9u1F9drd5sOJGCZuhYPjxZdlnv28a+9lBoQ9NrntoJZ0naUaXZS\/eax6iubh1Ot4M+AiVz3L6fISqC\/Wv\/cWvDxWbAeF9ltPnQ5MVfVL6\/BeHqs2A8D7L6RT+6Vt\/uDa8vbru1V8+fdDMrI3wYcvpuMXPPDYXS9kR3iAC4Q2yKB6++mQf4UuEf3pt8hGqWMqO8AYRq3r1ScJbzXScGTxolo8+L8M3TV7\/eLyXsq9ek3Ic\/bzh+xovhZ95oMJl2bdb05bwiQQYvbFMN\/MI1QYqVhFLv\/4K+TJaPAhzfFv26l9txrM12gwIv7KcG0ashp8ZGsFl2bdbE8IbzKogt\/jp4LLs262peHgoE149P1zu8G2VaXPv5BHeIIs84AHhbbNIHB6gn\/oT+qkREd4gi9ThWStHeMsscoDvKu0GPoUA1Zb1Mdv42cP7rtSSNWkm\/829xbM6lw2vkC8Hnm0AhDfIIgN4GhDeKov84AHhTbLIEB4Q3iCLfODp3QgIb5ZF8vA8gHgeR7+icuA12yE\/+NEb5YoQvnvNEN6kxgXAK2\/EIwiP8LnAC8vVVS4Fnp3RyhheB1wUfH+pggXay815H4\/wfMfGj2wRXrmi3OAHdx127xBetaIC4LuTGQg\/XFFm8P15SoQvF17c2xvBnzRDvjz7eO\/1u+24junD6w7z2tdM4JmyHt7g+19VDw8v3q\/akb4eHBQN345m2o6AlAQ8vwgtwrf2RvA1+PnbdWW\/vtu8TWZIRy3fbIOeGu7s5Ea9DU4U3\/+44KH7v+IL+BG9MfzDw9b+g886eLnGBbX4qhnNlMLH\/P2H9j95GXsFw1tvz3\/Z\/jm78XU28NrbTsVtpAzNaKYndJi7eFt8f7dhJS5jr91PwXyLb7CbIR0P8tnHL4ZvRjM9ucFGr3ZX9jUJQA8PVvDN71rboc+nV78Uvh3NtGkEV0qAV4Qty+kqQn+guhy+Hc2UT1TgrOyrEgCABp4+UAakUHjlNclMjuP7m8ugVPipW6wKh+8iSoWX43OBB4TXJygSnkAR8JP3zwsP1Ukrygh+lAKEE7flwgunrsUVpQ9PYBKepygdHoTlOcErUgDCM\/h+4IQi4AnJGV6+Eq1OkDP8VAqEHz1Lh\/BCgozhSbbwpimyg6edWoSfSZEn\/NzIFwhfKDy\/I4FtgDzg1aellCkQXryAmTK88C02SZEl\/OwgR4T\/zAMgvJwgUXgAk0JxeMI\/bwcfV7AcvHRRJc1UAh3Oja9LKRP08GQxvLdKGSXQX3NUpsiuxSO8YQqlfJLw1NESfrAc4bvXpOChbHiQazSXIit4\/q1H+LkU2cEbFgrh9VkkBz+402AmAcLrs0gNHsqG195JqE6xBD7K0MBbnJYAPXCy8CPLElq8cCOdUaFybPHFwtsUSnmvStrwY0uEHy9HeH0WqcHbFQryg7dKgfDC8nThp665WKRIEt6yUAivTZASvOkRLMJPpkD4EuAVaRKDh\/EhLMLPp8gC3jQFwvcp5gYGiR8eFsEvOI6n4x6dX49vSNMy4S1OVq6Cb4c0rZ59HN9Ytmp3c3jgywnCq8JZbf\/OrdPYhjRdcM9sc01L+IdRGutt7DRCcR3aGfzFrdPz69\/cyq\/Fg5ggHXjzFOvg2yFNm1EO84MX71jLHF6xfAa+HdK0G8k4LvjpaeTUEQgvLJ+Bf9A19gjhF2QhwktjoCL8dNig7OMACzaorsEjvOny8PCwCH5J3gK8POoxwvuAHx6UhICnw10DQfgA8NC9DwJPED4QPLtTsrtj1D98+4rwIeCBjegAc7MBykF5\/sokbxmeJ0B4L\/AwgCcdvIAxsybQD\/GF8KbLg8EDGcLTfxnBA8KvKFRIeN6p7uDFH36xdo7gxT8pwdtdiY4LnmGLXXvoT6cAcQuv2J8Im4HPJxzp9GPJwxMiHdMBxw8Iz+cTjnTCwZTgpQuCg+d7efe8TdFFGTwP6Aqezyfsb1Jhq1G7th+cLBi8eFEceD9\/Oot18KCF5\/MJ+5tU2Ph+GvsLkkFbvHx\/J4B8pYSnsIBf3CmehK\/6+YT9TSpcCDyQeXiTfbwbeD6fsL99vA28ZR5xwRP9T70wmcJwuRxcwfMOvbdevc2QHiHhrcOwQzK6wVFeAOxlskCG90mqSmM7igjCKzaDUYsfVGxUdJBaNut0y8tHqZa2eCJ1L+V9PML7gVf\/pM\/CL93SCM+Xu4WX9qcIL0fkD99uc9PtAy7hSRLw2jZinkcM8GAHP9erX3f8hPDtq0t4NtAuvQaL8HIEjD1pROLwpL\/g1u5ZLbYPaJbTuDXwqsHCgsP37+hrJvC0SxUL\/Hh5BPCA8CypJgswylsXESs8DOEV5zxs84gF3u60izN4EhG8cHK6v1Ahn7Um\/LtgmUcU8N0Rms32AW0Wq+EVyyOA7\/vB\/ZEQC2nCs0M52z1z8fC9NCQHP9xd2XbJZF\/QRdgVSr08HLzQm+uPfKVF8i+AYR7B4ednT0H4fq8o3KnC3vb+lnkEh7dIIYYy4aWjjv77kCC8TQoxlAjf7Q5FePY7rxyccVmhooennQJ+hkNYbQ7w4r6bd4OHKTi8diiI+ODNR2QrEh6EY\/ZZ+CV5hIM3LooZvNhnyAK+C1LXXkoRCr4d0lRz66FjeMLhhb5t3vCKFBAGvh3SVHOz8UxJFPukJfDSQU1+8MKxmhJ+cR5rf+rPDpY9ULT+zt3unlt6W2x\/762zO4KVYd02Thn+4tap5oEi1y2e8GfphHMYkGOL5\/2YzWumWz4H3wxpqnmgaLok+iHCjcvIhygSjnwQ3jRiFXw7pOmifbzqsNO27MDP83P4RWtaDO8s8KdCJqZ+dV8KXUQ7pOmiXr0jeFi2puha\/OC07Pxzoksi1nbutJvBIzw\/15En\/KpV5QjfPxo8aPgL1oTw8nI38JqLSavhl5\/NQHhpuSt45SUF+7IPV4PwNhEIP51F9xoQXnWf\/xZ5ZAW\/eE2RwQ8eKhpUMml43W0Da8uO8DYRIeA1t4ushl++JoSXliN894rwCO8GXuqt5ArvuOypwy8dxMcqwit8d+kM4ccRCL9F2VOEHxy55wffXlJG+FGEPPxXRvDd9TN+ydxl2dOCB3adUbj3Ijv4Rc985A4PINxG1C5JDX4qAL0d0sWw6uHCum3MWjxA3+pJtyQx+KkVs6nksMXLEfxmEvYQdF7wwxsjnZY9Kfi+mYstA+EXlT1NeJItvNyHcVb2dOHbNwi\/tOxJwvOQGzzrvLove0rw6rEKc4Nv3yC8GKEe0SB1+ME9g2wXhvBChGa\/lxl89wbhhYiC4D2U3Q08GwWCTjCL8FPwvF7pw7ejQPAJZhF+El5+qs1L2Z391J8d8AlmN5lbNvLrFmtaPLsq507FacQA\/uLWKZ9gdlzjBeXc7NaE2Fo8yQm+GQWiqjadWxbhNy27G\/h2FAg+wSzClwLPR4HYrlefMTz9PwP42Rrbl3O7yxZxwvsezQPhDSIQ3iALhB+FurNT7\/Eun07Aq+fwc1n2VOA3PHvtG\/7B3kF7Rks93Bm9r0A5T6\/LsiO8QcQq+Is\/1eQPf9O2eMV5LDroaGZ31oph3TZOF779qa8PaTUjW7LTtb7LHneLF65fpA3\/8BDhbcrZd3xSh29PZiG8aTnZ3NmWc2tuHuGwV+\/8kmOy8PRvyvD6zVCp7yZDeGG7ZAofrOwxwzu6NQHhnWSxFTxIXR6E37bsscKPpodD+G3LHi283N9F+G3LHin8eIMg\/LZljwm+G\/VHnAbaSTkjgvdwyTFueDrgD79IhfCuyx4FvDARYkhfhF+ThSU8uxzNNgLCeyp7YHiQx7FCeE9lDw3f\/86XBy+fovJb9vDww6EcEd5T2cPCj3vwCO+p7BHA+y4nwjvJwgZeUe\/s4XkIORNu4JBTvbHFz9eYfVhV7exbPE+N8J7LGQv8puMYpgQfavCyeOB93DocE3x3t7T6247wnsoepMUDIDwpEZ7oRqlEeG9lR3iDCGeduxLhw5UzGvigZQ95OBeonAjvJAuER3iER3iER\/jg5UR4J1kgPMIjPMIjvDLYj+VunSK2LGKsgHUK8fMIH8PaPaVAePsEMVbAPzyG9APCFxoQvtCA8IUGY\/jz681Ih2xmvivCO3U4aWb7sEjRDafYxllkcqD4PFtsXAtdAssq29bYT5V1NTaFf\/ZxO8RlOzNfO2EPf6dN8\/DQPEUzSDqLM86kSTT+PFtsXAtNggVVtqmxnypra2wKf\/LOrW5s0+rsgE3Rxd8pQx9jkKIdJF2IM8qkTTT+vLDYrBaaBPZVtqmxpypra2wIf379G7qCi1undFI+\/k4d2q+\/cYq65DzONBNW3cHn9b97mlqoEyyosl2NfVRZX2NDeLb\/amfm6745\/J06nP+SltAshfj1N86EVnf4eT28phbqBPZVtqyxjyrra2zcuWu\/J93MfO2+gr\/TJKAlN01xwnd45pl01ZU+P9W5U9ZCl8C2ypY19lNlXY0t4fnMfPydJtCimKYQurjmmXR5SJ+fhzdMYFtlyxr7qbKuxngcX2hA+EIDwhcaEL7QgPCFBoQvNCB8Hb79LezTN93f6uk\/fhWwPD4CwtfhyQ8ocw\/fL8k2lAv\/5C9\/\/ty9xwAvVE+vwXP36iVfwp\/9fL9+hRfqn4Dnv2rjsg0Fw3\/vdtuwP9mn7fvJ9+89+e5+\/f7pW\/fqVxqXaygYvoZ93AxC\/iqF\/\/LVqv0WfBe+c7teQuNyDYXDv9C\/ZfCPn7v39M0WPuPf+ap0+PrnvunP9T\/1T6\/t196P2xZP43INZcNXXQeu26\/X3brv\/MV+3dP782v1K3buMGQZEL7QgPCFBoQvNCB8oQHhCw0IX2j4f\/6xTR2\/g7vXAAAAAElFTkSuQmCC\" alt=\"plot of chunk unnamed-chunk-1\" width=\"50%\" \/><\/p>\n<p>\uc791\ub144 3\uc6d4 \uae09\ub77d\uc774\ud6c4, \ud398\uc774\uc2a4\ubd81\uc740 8-9\uc6d4\uae4c\uc9c0 \ubaa8\ub450 \uc62c\ub77c\ubc84\ub838\uace0, 3M\uc740 \uacc4\uc18d \uc624\ub974\uace0 \uc788\uc73c\uba70, \ud14c\uc2ac\ub77c\ub294 \uc62c\ucd08\uae4c\uc9c0 \uc624\ub974\ub2e4, \uc62c\ud574 \ub4e4\uc5b4 \uae09\ub77d\uacfc \uae09\ub4f1\uc744 \ubc18\ubcf5\ud558\uace0 \uc788\ub2e4.<\/p>\n<p>\uae09\ub4f1\ud588\ub358 \ud14c\uc2ac\ub77c \uc8fc\uac00\uac00 \ud558\ub8e8\uc5d0 10% \uc774\uc0c1 \uc624\ub978 \uacbd\uc6b0\ub3c4 \uc788\uc744\uae4c?<\/p>\n<pre><code class=\"r\">dat %&gt;% mutate(r = price.close\/ price.open) %&gt;%\r\n  ggplot(aes(x=r)) +\r\n  geom_histogram() +\r\n  labs(title = \"tsla(close\/open)\",\r\n       caption = paste0(\r\n         format(min(dat$ref.date), \"%Y-%m-%d\"),\r\n         \" ~ \",\r\n         format(max(dat$ref.date), \"%Y-%m-%d\")))\r\n<\/code><\/pre>\n<pre>## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.\r\n<\/pre>\n<p><img title=\"plot of chunk unnamed-chunk-2\" src=\"data:image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAAA6lBMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OmY6OpA6ZrY6kJA6kLY6kNtNTU1NTW5NTY5Nbm5NbqtNjshZWVlmAABmADpmAGZmOgBmOpBmZmZmZrZmkNtmtv9uTU1uTY5ujshuq+SOTU2OTY6ObquOjsiOq+SOyP+QOgCQOjqQOmaQkDqQkGaQ2\/+rbk2rbo6r5P+2ZgC2Zjq2kGa2tra2tv+2\/\/\/Ijk3Ijm7IyP\/I\/\/\/bkDrbkGbb25Db\/7bb\/\/\/kq27kq47k\/\/\/r6+v\/tmb\/yI7\/25D\/5Kv\/\/7b\/\/8j\/\/9v\/\/+T\/\/\/\/jBu4dAAAACXBIWXMAAAsSAAALEgHS3X78AAAPWUlEQVR4nO3cD1scVxXH8U0ITYwKaiOtVVGpVahKDLVCGrSECJuFzPt\/O87M7rLsZWY5y733nDPc7+95CsvO2cO589n5ExI6qkiRGVkPQGwCfKEBvtAAX2iALzTAF5r14Mcvjm8en251PBmUvzxb1eyna31vkjQC+Fuwtx5Ovjy++2SQm\/dGd4527\/\/mJFMeDL9A7YW\/\/vZwZeOLjVUnBJI198NPdkZPDquLUfOxMa4fjZ5NUcefjUa77ZP1o3rzrKp5ydP6zTD56my24frbfzQvmm0Yv\/j7aFS\/byZfrH5jkIwRHvGNUX2A1g8nO7vVxZPD9smdVn3+5NPjWdX1wW51Wh\/NF8+q2Ybrg3rjztZsw\/izrebJqvmSGEUKv7M7f1i1h2oDNztVT+2bJ29VNe+Bo935w5b49Nnsq\/Hz6bmjOlp9D0AyRnqNr0\/Si7N6ffZu0E9v4JuvGtxZVV1RlzS3f7MNLfzFxn+nG9ouwNtmjZu7+iBvDu76cG2O2hcdR\/yiqn30rOo44mcNgTeOBL45M9f\/TUmbc\/zRrWv888PFNX5W1TDXT57uVotr\/MZZ\/XC2YQ7PNd4wAvjrg\/r0fXNXX381+vns5L3irv7J4fQPc7O7+oPfTu\/jd+Z\/Nrh1jiAWefCPbO\/54cxyuo9t\/hxvmAfDL35yJ0g3PD+5M8zD\/5JmnUO+E371T\/JJ3vC3c4UG+EIDfKEBvtAI4P\/XmxWboquH29zRKJ3lwLuoBv7RNHc0CvCazR2NArxmc0ejrAn\/6fX2q+kH4LNXe4K\/3Kvevqk\/nOwDn73aE3x9zP\/z3fmb5g1QbW5u3n8xIMNLJ\/zV16\/qY76FrzjiBzzK+jd3l3vnwKtUe4J\/v1+bc43XqfYEX9\/Qf\/6Bu3qdak\/wQRzNPIjmjkYBXrO5o1GA12zuaBTgNZs7GgV4zeaORgFes7mjUYDXbO5oFOA1mzsapWT4Xy8lcfME1cBnag78neeAVx7FSXPgtUdx0hx47VGcNAdeexQnzYHXHsVJc+C1R3HSHHjtUZw0B157FCfNgdcexUlz4LVHcdIceO1RnDQHXnsUJ82B1x7FSXPgtUdx0hx47VGcNAdeexQnzYHXHsVJc+C1R3HSHHjtUZw0B157FCfNgdcexUlz4LVHcdIceO1RnDQHXnsUJ82B1x7FSfMi4bvfBkqjOGkOPPDAq4zipDnwwAOvMoqT5sADD7zKKE6aAw888CqjOGkOPPDAq4zipDnwwAOvMoqT5sADD7zKKE6aAw888CqjOGkOPPDAq4zipDnwwAOvMoqT5sADD7zKKE6aAw888CqjOGkOPPDAq4zipLkYfthZBW89m2U44vVGcdIceOCBVxnFSXPggQdeZRQnzYEHHniVUZw0Bx544FVGcdIceOCBVxnFSXPggQdeZRQnzYEHHniVUZw0Bx544FVGcdIceOCBVxnFSXPggQdeZRQnzYEHHniVUZw0Bx544FVGcdIceOCBVxnFSXPggQdeZRQnzYEHHniVUZw0Bx544FVGcdIceOCBVxnFSXPggQdeZRQnzYEHHniVUZw0Bx544FVGcdIceOCBVxnFSXPggQdeZRQnzYEHHniVUZw0Bx544FVGcdIceOCBVxnFSXPggQdeZRQnzYEHHniVUZw0Bx544FVGcdIceOCBVxnFSXPggQdeZRQnzYEHHniVUZw0Bx74IFdfb\/\/y3afX26+ATzqKk+b98O\/3q\/d7l3vVyT7wKUdx0nzlqf5y\/\/xNVdtXm5ub918MPGcVvPVslumGv\/rmw9spfMURP4x1ystXwF\/9+V11DnzqUZw074f\/+Md3VcU1PvkoTpr3w59sb2\/vcVeffBQnzVdd45fiaOYHVAN\/5znglUdx0hx44IFXGcVJc+CBB15lFCfNgQceeJVRnDQHHvhS4aVvgyGsU14OPPDAAw98vlGcNAceeOCBBz7fKE6aAw888MADn28UJ82BBx544IHPN4qT5sADDzzwwOcbxUlz4IEHHnjg843ipDnwwAMPPPD5RnHSHHjggQce+HyjOGkOPPDAA\/8I4OXUq+Clb4rYwYFP1hz41eXAAw888MB3dsk3OPDJmgO\/uhx44IEHHvjOLvkGBz5Zc+BXlwMPPPDAA9\/ZJd\/gwD+8\/KHSa8Cv8zYAPv3M3QF+rXLggQceeOAFTY3Wmag58MADDzzwgqZG60zUPICffHk8+wD8fU2N1pmo+RL89cGozcYZ8Pc3NVpnouZdRzynelFTo3Umah5e40+bI\/4pp3pBU6N1JmoeHvFfHHLEC5sarTNRc\/Gp3n0SwctjveAUWZzqj3Z7Shy9WbujDm+0zkTNA\/jJTunX+ELh++No5u4Av1Y5RzzwN7nY4ogvEr7oH9mWDD9+AXxp8NNrPKf64uD742jm7gC\/VnkI3xzyXTf1wD9u+OuD3fquvuS\/li0Unn+IUSg8R3yh8FzjS4XvjaOZuwP8WuUhfH2aHz\/v+scYjmbuDvBrlYfX+G9r9PFLrvGlwXNXXyg8d\/WFwnNXXyp8bxzN3B3g1yoHHnjggQceeOCB9zJzd4Bfqxz4TG8D4NPP3B3g1yoHHnjggQceeOCB9zJzd4Bfqxx44IEHHnjggQfey8zdAX6tcuCBBx74YcAbUy8n4zpjq4HPmYzrjK0GPmcyrjO2GvicybjO2GrgcybjOmOrgc+ZjOuMrQY+ZzKuM7Ya+JzJuM7YauBzJuM6Y6uBz5mM64ytBj5nMq4zthr4nMm4zthq4HMm4zpjqwcJb+0pTuQ6gQ9i7SlO5DqBD2LtKU7kOoEPYu0pTuQ6gQ9i7SlO5DqBD2LtKU7kOoEPYu0pTuQ6gQ9i7SlO5DqBD2LtKU7kOoEPYu0pTuQ6gQ9i7SlO5DqBD2LtKU7kOl3Bv9+vPr3efgW8JJHr9AR\/sr1fXe5VJ\/vACxK5TkfwVz\/UR\/z5m8a+2tzcvP9ikCXWnuIY7Z\/I9J7q307hK474+xK5TkdHfAt\/Drwwkev0Bs81XprIdXqD565emsh1uoJfitHM1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErhP4INae4kSuE\/gg1p7iRK4T+CDWnuJErrNI+FV70EYxOsBLqsN91r9tMAFeUh3us\/5tgwnwkupwn\/VvG0yAl1SH+6x\/22ACvKQ63Gf92wYT4CXV4T7r3zaYAC+pDvdZ\/7bBBHhJdbjP+rcNJsBLqsN91r9tMAFeUh3us\/5tgwnwkupwn\/VvG0yAl1SH+6x\/22ACvKQ63Gf92wYT4CXV1koZAryk2lopQ4CXVFsrZQjwkmprpQwBXlJtrZQhwEuqrZUyBHhJtbVShgAvqbZWyhDgJdXWShkCvKTaWilDgJdUWytlCPCSamulDAFeUm2tlCGPCD5jrJUyJNGuSLmXO8MRnzgPPSjvtBHvREHz5eeAzxHgJdUmNHkDvKTahCZvgJdUm9DkDfCSahOavAFeUm1CkzfAS6pNaPIGeEm1CU3eAC+pNqHJG+Al1SY0eQO8pNqEJm+Al1Sb0OQN8JJqE5q8ke+Ve9qk2OXA6wV4SbUShmaAl1QrYWgGeEm1EoZmgJdUK2FoBnhJtRKGZoCXVCthaAZ4SbUShmaAl1QrYWgGeEm1EoZmgJdUK2FoBnhJtRKGZoCXVCthaEYBXlbZt8+BzxPgJdUZAawCvKQ6I4BVgJdUZwSwCvCS6owAVgFeUp0RwCrAS6ozAlgFeEl1RgCrAC+pzghgFeAl1RkBrAK8pDojgFWAl1RnBLDKY4eXf\/PEO7aQyPch8I8qwBca4AsN8IUG+EIDfKEBvtAAX2iALzTAFxrgCw3whQb4QjNI+Jw7hIRZ6QL84w3whQb4QgN8oQG+0ABfaIAvNMAXGuALDfCFJjX8p9fbr4AfQFLDX+5VJ\/vA+09q+PM3jX21ubl5\/8WADC+98G+n8FXWX5pMV+6ouaNRIo544DNXu4O\/5xpvM\/MgmjsaJcNdvc3Mg2juaBS3\/2OEdOWOmjsaBXjN5o5GAV6zuaNRgNds7mgU4DWbOxoFeM3mjkYBXrO5o1GA12zuaBTgNZs7GgV4zeaORgFes7mjUYDXbO5oFOA1mzsaBXjN5o5GAV6zuaNR4uD7k\/Wf4w22+TAGB35QvYF33HwYg0fBk+EG+EIDfKEBvtA8BH7+L6+vvq4\/L\/4ZdpqEzX\/xJmX36v3+zTdJPXnQO8vg7eckgz8Efv67FvUMl\/uLX7xIk6XmV39J2LnJyfb+zTdJPfnt3rkGbz8nGfwh8PPfrmpsXi1+1SpNlpp\/\/MP25x8SNr\/6YXrgtN8k8eRLvXMN3n5OMvhD4Oe\/T1mfjX\/1p7eJ4Zea148+\/jVh8\/kZs\/0mqSe\/3TvX4O3nJIPHHPFVlf64WW4+\/5Au+Y74pd5VpsHbz2ZH\/K3LcPor5VLz9kKfsPl8\/2W5xt\/unWvw6SXQ6hrf3lVeffMhy71x1ubtfsvWPGfvWXPbu3ryCAJ8oQG+0ABfaIAvNMAXGuALDfCFBvhZxj\/5zdNj6yEUA\/ws4+eH1iOoBvhZxi\/PrEdQDfCzAF9ogC80wJMiAnyhAb7QAF9ogC80wBca4AsN8IUGeD+Z7IyeHl8fjJ7delSn\/Tz\/Yr7lyWH\/C6vqdLf7hbd+TgW8n9Rcp1sXW9XR7uJR\/XT7uf7w3eG8ZvK7lS+sjkYt\/N0X1m+DDeA95mL3P4cN2O1Hs8\/Xfzue14w\/G22c9b9w8u\/pEX\/3hdXpz74C3mEmX519N9VaPKqmnyc7z25q6i\/Hv68fXtRn8e\/vvnB+qr\/7wvHLH4F3mMmXx7PD9ObR0WjjX\/NDufnirNnSflF\/+H5+Ul9+YQvf+cLT0Wi0Nf1ewPvJ+MXx7MK8eFTNPteULWK7pflit\/+F8yP+7gtnJ4QmwPvJUXM8tnfhi0fV4ua8vawvbel5YXhXv3gh8AT4QgN8oQG+0ABfaIAvNMAXmv8DD8bH\/\/3Yb7IAAAAASUVORK5CYII=\" alt=\"plot of chunk unnamed-chunk-2\" width=\"50%\" \/><\/p>\n<p>\ud788\uc2a4\ud1a0\uadf8\ub7a8\uc740 \ub4dc\ubb3c\uc9c0\ub9cc \uc885\uac00\uac00 \uc2dc\uac00\uc758 10% \uc774\uc0c1 \uc0c1\uc2b9\ud55c \uacbd\uc6b0\uac00 \uc788\uc74c\uc744 \ubcf4\uc5ec\uc900\ub2e4.<\/p>\n<p>\uc5b8\uc81c\uc600\uc744\uae4c?<\/p>\n<pre><code class=\"r\">dat %&gt;% filter(price.close\/price.open &gt; 1.10)\r\n<\/code><\/pre>\n<pre>##     ref.date price.open price.high price.low price.close    volume\r\n## 1 2020-04-13    118.032    130.400   116.106      130.19 112377000\r\n## 2 2020-07-10    279.200    309.784   275.202      308.93 116688000\r\n## 3 2020-08-31    444.610    500.140   440.110      498.32 118374400\r\n## 4 2020-09-14    380.950    420.000   373.300      419.62  83020600\r\n## 5 2021-03-09    608.180    678.090   595.210      673.58  67523300\r\n<\/pre>\n<p>\uc774\ub807\uac8c \ud558\ub8e8\ub9cc\uc5d0 10%\uac00 \uc624\ub974\uba74 \uadf8 \ub2e4\uc74c\ub0a0, \ub610\ub294 \uadf8 \uc774\ud6c4\uc758 \uc8fc\uac00\ub294 \uc5b4\ub5bb\uac8c \ubcc0\ud588\uc744\uae4c? \uc774\ub97c \ud655\uc778\ud558\uac8c \uc704\ud574\uc11c\ub294 \uc5ec\ub7ec \uac00\uc9c0 \ubc29\ubc95\uc774 \uc788\uc744 \uac83\uc774\ub2e4.<\/p>\n<p>\uba3c\uc800 \uc704\uc758 \uc0ac\ub840\uc5d0\uc11c \ub0a0\uc9dc \ub610\ub294 \ud589\ubc88\ud638\ub97c \ucd94\ucd9c\ud55c \ud6c4, \uc774\ub97c \ub298\ub9b0\ub2e4\ub358\uc9c0\u2026<\/p>\n<p>\ub9cc\uc57d \ub2e4\ub978 \ubcc0\uc218\ub97c \uc0dd\uc131\ud558\uc9c0 \uc54a\uace0 \ubc14\ub85c \ud655\uc778\ud558\ub824\uba74 \ub2e4\uc74c\uacfc \uac19\uc740 \ubc29\ubc95\uc774 \uc788\ub2e4.<\/p>\n<p>\ud558\ub8e8\ub9cc\uc5d0 10%\uac00 \uc624\ub978 \ub0a0\uacfc \uadf8 \ub2e4\uc74c \ub0a0\uc758 \uc8fc\uac00\ub97c \ubcf4\uc5ec\uc900\ub2e4.<\/p>\n<pre><code class=\"r\">dat %&gt;% filter(price.close\/price.open &gt; 1.10 | \r\n      lag(price.close\/price.open) &gt; 1.10)\r\n<\/code><\/pre>\n<pre>##      ref.date price.open price.high price.low price.close    volume\r\n## 1  2020-04-13    118.032    130.400   116.106     130.190 112377000\r\n## 2  2020-04-14    139.794    148.376   138.486     141.978 152882500\r\n## 3  2020-07-10    279.200    309.784   275.202     308.930 116688000\r\n## 4  2020-07-13    331.800    358.998   294.222     299.412 194927000\r\n## 5  2020-08-31    444.610    500.140   440.110     498.320 118374400\r\n## 6  2020-09-01    502.140    502.490   470.510     475.050  89841100\r\n## 7  2020-09-14    380.950    420.000   373.300     419.620  83020600\r\n## 8  2020-09-15    436.560    461.940   430.700     449.760  97298200\r\n## 9  2021-03-09    608.180    678.090   595.210     673.580  67523300\r\n## 10 2021-03-10    700.300    717.850   655.060     668.060  60605700\r\n<\/pre>\n<p><code>price.close\/price.open &gt; 1.10<\/code>\uc740 \uc885\uac00\uac00 \uc2dc\uac00\uc758 110%\ub97c \ub118\ub294 \ub0a0\uc744 \uc758\ubbf8\ud55c\ub2e4. <code>lag(price.close\/price.open)<\/code>\uc774\ub77c\uace0 \uc4f0\uba74 \uc804 \ub0a0\uc758 \uc885\uac00\/\uc2dc\uac00\uac00 1.1\ubcf4\ub2e4 \ud06c\ub2e4\ub294 \uac83\uc744 \uc758\ubbf8\ud55c\ub2e4.<\/p>\n<p>\ub370\uc774\ud130\uac00 <code>x=c(1, 2, 3)<\/code>\uc774\ub77c\uba74 <code>lag<\/code>(\uc9c0\uc5f0)\ub41c <code>x<\/code>\ub294 <code>c(NA, 1, 2)<\/code>\uac00 \ub418\ub294 \uc2dd\uc774\ub2e4. (\uc5ec\uae30\uc11c <code>lag<\/code>\ub294 <code>dplyr::lag<\/code>\uc774\uace0, <code>stats::lag<\/code>\uc640 \ub294 \uc57d\uac04 \ub2e4\ub984\uc744 \uc720\uc758\ud558\uc790.)<\/p>\n<pre><code class=\"r\">dat %&gt;% filter(price.close\/price.open &gt; 1.10 | \r\n      lag(price.close\/price.open) &gt; 1.10) %&gt;% \r\n  ggplot(aes(x=ref.date)) + \r\n  geom_point(aes(y=price.close), col='blue') + \r\n  geom_point(aes(y=price.open), col='red') + \r\n  geom_linerange(aes(ymin=price.close, ymax=price.open)) \r\n<\/code><\/pre>\n<p><img title=\"plot of chunk unnamed-chunk-5\" src=\"data:image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfgAAAH4CAMAAACR9g9NAAAAz1BMVEUAAAAAADoAAGYAAP8AOmYAOpAAZmYAZrYzMzM6AAA6ADo6AGY6OgA6OmY6OpA6kNtNTU1NTY5NbqtNjshmAABmADpmAGZmOgBmOpBmtttmtv9uTY5ubqtujshuq6tuq+SOTU2OTY6ObquOjk2OyP+QOgCQOjqQOmaQ2\/+rbk2r5P+2ZgC2\/7a2\/\/\/Ijk3Ijm7Ijo7IyP\/I\/\/\/bkDrb\/7bb\/\/\/kq27kq47k\/8jk\/\/\/r6+v\/AAD\/tmb\/yI7\/25D\/5Kv\/\/7b\/\/8j\/\/9v\/\/+T\/\/\/8wmHXVAAAACXBIWXMAAAsSAAALEgHS3X78AAALcElEQVR4nO3dDXfT1h2AcRWNkXZb8XjrlrF6Y6Ej0CQMRmgs8kb0\/T\/TZCUwUCXXtpQr3fs8\/9PjcpI+56r8uJZiJyIrHeRkYx+AM84IDx3hoSM8dNaFXyzn+nGb2bocYcnUS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloKDy2Fh5bCQ0vhoaXw0FL45MuiaA2ET7wsilb5zeCd+KYosqLzk+74hMsiaw2ET74UHloKDy2Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhkmefCE8tceGZZuQuPLIWnlsIzy2rH522B8ImXeZYLjyxbN7zw6Zetp3jh0y+Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloKDy2Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FJ5Ztv\/18cKnXhZFVrQGwqddFtW0BsInXra7C08thYeW3fBX+7MHJ9XDw7J+ED6tshv+eK\/653ReHl4\/CJ9W2Q3\/+l\/Vjn\/\/sjyd1w9lubOzs+YZwYll2uCrTX46P3r56aH+WOg\/lr1Dy86gE\/71m0+b\/b3w6ZXd8NU5\/tRzfLJlN7xX9UmX3fBtE\/roeoeWnYHwzFJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloKDy2Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloKDy2Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNLIHxRhF9zeiUPvijWk4+Cb\/uSCJ8Jvyl8CpMXpP\/b3xjQjs\/zPAu95hRLIHwm\/AIIvxD+OsDBL4SvA+FDrDm9Uvgga06vFD7ImtMrhQ+y5vRK4YOsOb1S+CBrTq8UPsia0yuFD7Lm9Erhg6w5vVL4IGtOrxQ+yJrTK4UPsub0Sh58nmV56DUnWBLhc+GJ8Iv1NnwcfNuXRPgR1pxeKXyQNadXCh9kzemVwgdZc3ql8EHWnF4pfJA1p1cKH2TN6ZXCB1lzeqXwQdacXil8kDWnVwofZM3plcIHWXN6pfBB1pxeKXyQNadXCh9kzemVwi+WN0u47TWnVwpf3x2lRT4Kvu1L4eu7owifPnzR8lTfdtqPgm\/7Egffeps74QnwLTe2FL68eJT99acXCcO33spW+I\/Pd1\/tnn3\/LmH4thH+4snBq93qQfg4+LYv23b8h7uwHd9yoR8J3\/Zlyzk+u9O14ROFb7+fdRR825dN+NUT+uh6h2vCt13wRcG3fdmE\/3Cv2vO7LPj2v7MiCr7tywb8x59evL3Hu6oHlg345VX9fd5VPbBs7vh\/\/\/z4hTseUP7qHJ\/d\/e\/jpF+5s7wOGvCrJ\/TR9Q4tO4MGPPHreGTZgP\/4vPpSDvfKHbFswNcX9F7VA0p3PLT0HN\/xTbZx8G1fNuFXT+ij6x2uU7Z\/k20cfNuXX8Evt\/tyOrd86KPrHa4H33rnuyj4ti\/d8R3fZBsH3\/ZlE766sDv7jvbKnfDLd+fKEvdavfDQr+OFh34dLzzz63jhf3NCH13vUPjOoAXec3yANccu3fEL4YUPuObYZRM+\/R+abBnhv\/6hyfOnJ1f7s4dl\/SD8sGuOXTbgv\/yhyav9Byen8\/Jwr34Qftg1xy7bdvzNCzjHPz47ef+yPJ3XD2W5s7Oz5qVAbLPuJU560\/YCzvnTX56dHC3Nj67hS3f8gGuOXTbh\/z\/Hs9ls\/uWOF37INccum\/Bfvi17+cxz\/K2tOXbZgP\/qbdkK3qv621pz7LIB79uyodYcu2zueN+WDbTm2GXzHO\/bsoHWHLtswq+e0EfXOxS+M\/gS\/uLJz494314tfLnquk74YdccuxR+IfxyXnXe8Spd+Nb7G8bBt33Z3PHAc3z7\/Q3j4Nu+bO741RP66HqH68F7n7vrLd\/5+k2a8O33N4yDb\/uyAc985Y5YNuCZr9UTy+ZT\/av7y\/vZsp7qkWVzx6++NULoo+sdWnYGjR2\/ekIfXe\/QsjMQnlkKDy2Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloKDy1jhG\/\/efaBl0y9jBC+4w4WAy+ZehklfOs9awZeMvUyQviOu1QNvGTqZYzw7felG3jJ1EvhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0jA4+z4UfoowNPq9G+AHK+OAz4YcoY4Nf5JlP9UOU0cEvhB+kFB5aCg8tY4TPhe9fbgY\/hcmWF\/ZjH0QqE9WOr7+Uv\/UlUy8jhF9s4B4HwhhljPBBlky9FB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHlpGB7\/JfVD6LJl6GRv8Rnc+6rNk6mV88Jvc5S4ShDHK2OA3urthnyVTL6ODtxymFB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloKDy2Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloKDy2Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNL4aFlN\/zlP2Z\/fnO1P3tY1g\/Cp1V2wx\/vlcfz03l5uFc\/CJ9WufKp\/nTv\/cvydF4\/lOXOzs6aZwQnlmmHv3x2crQ0P7qGL93xCZUr4C\/\/+ab8cscLn1LZDX\/+tzdl6Tk+1bIb\/nA2m829qk+1XHWO\/\/WEPrreoWVnIDyzFB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloKDy2Fh5bCQ0vhoaXw0FJ4aCk8tBQeWgoPLYWHlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkNL4aGl8NBSeGgpPLQUHloOAJ\/nt3Z0vUPLzqA3fF4U68oLP52yP3xRZMVtHV3v0LIzGAC+ED6+sj\/8Ym134SdUDgB\/i0fXO7TsDIRnlsJDy\/7w638ZL\/yEyt7wee4LODGWA8BnwkdYDvBUn93e0fUOLTuD3vAL4WMshYeWwkNL4aGl8NCyP3whfIxlb\/gN3o4XfkLlAPC+LRtjOcBT\/druwk+o7A9\/m0fXO7TsDIRnlsJDS+GhpfDQUnhoKTy0FB5aCg8thYeWwkPLzeCdxMYdjyuFh5bCQ0vhoaXw0FJ4aCk8tNwMvp6dTf7jYWaEJRlrCg9dU3jomr5kCx3hoSM8dISHzibw509Pbu04Wud4NpvNwy5ZHu+VV\/uzh+FXDTwbwF\/tPwgMX83rN2HXO5ztlafz8nAv+KqBZwP44x+fBYc\/DbzhL\/9T7b33LwOvW68aeNaHP3\/6S3j40Bu+ftI9Cg0\/7af6MU64538PvGBNEHzHTxu+ekYKvuND\/\/6XNUH4c7zwjQn\/++FVvZP2CA8d4aEjPHSEh47w0BG+mo\/Ps92bX1z\/u7z4y7sRjyfECF\/N2fc3zJ\/hP38k2eHCn\/3phzsHH7LsXnnxKLtzUH3kbfa7H3arx+xe9RRw9139uWQHDP\/di3pjv9q92d9nfzg4+3a3+vXFk4Pq8eZzqQ4YvoKtNnWW3b+Bf3u\/rP8UfJt986L6yM3nUh04\/L3Pv\/wE\/+HOwcXjGj7h5\/mSDl893S+v5z4\/1V882q28P9Q7\/uZzqQ4bvry+gLs+r1eXdd\/8cbe60vv9o+rRizsnyREeOsJDR3joCA8d4aEjPHT+B0glgMVFvxO3AAAAAElFTkSuQmCC\" alt=\"plot of chunk unnamed-chunk-5\" width=\"50%\" \/><\/p>\n<p>5\ubc88 \uc911 3\ubc88\uc740 \ub2e4\uc74c\ub0a0 \uc885\uac00\uac00 \uc2dc\uac00\ubcf4\ub2e4 \ub0ae\uc558\uc74c\uc744 \ubcf4\uc5ec\uc900\ub2e4.<\/p>\n<p>\ub9cc\uc57d 10% \uc0c1\uc2b9 \ud6c4 1\uc8fc\uc77c \uac04\uc758 \uc8fc\uac00 \ucd94\uc774\ub97c \ud655\uc778\ud558\uace0\uc790 \ud55c\ub2e4\uba74 \uc5b4\ub5a8\uae4c?<\/p>\n<p>\ubb34\uc2dd\ud55c \ubc29\ubc95\uc740 \ub2e4\uc74c\uacfc \uac19\ub2e4.<\/p>\n<pre><code class=\"r\">dat %&gt;% filter(price.close\/price.open &gt; 1.10 | \r\n  lag(price.close\/price.open, n=1) &gt; 1.10 | \r\n  lag(price.close\/price.open, n=2) &gt; 1.10 | \r\n  lag(price.close\/price.open, n=3) &gt; 1.10 | \r\n  lag(price.close\/price.open, n=4) &gt; 1.10 | \r\n  lag(price.close\/price.open, n=5) &gt; 1.10 | \r\n  lag(price.close\/price.open, n=6) &gt; 1.10) %&gt;% head(10)\r\n<\/code><\/pre>\n<pre>##      ref.date price.open price.high price.low price.close    volume\r\n## 1  2020-04-13    118.032    130.400   116.106     130.190 112377000\r\n## 2  2020-04-14    139.794    148.376   138.486     141.978 152882500\r\n## 3  2020-04-15    148.400    150.626   142.000     145.966 117885000\r\n## 4  2020-04-16    143.388    151.890   141.344     149.042 103289500\r\n## 5  2020-04-17    154.456    154.990   149.532     150.778  65641000\r\n## 6  2020-04-20    146.540    153.114   142.442     149.272  73733000\r\n## 7  2020-04-21    146.024    150.666   134.758     137.344 101045500\r\n## 8  2020-07-10    279.200    309.784   275.202     308.930 116688000\r\n## 9  2020-07-13    331.800    358.998   294.222     299.412 194927000\r\n## 10 2020-07-14    311.200    318.000   286.200     303.360 117090500\r\n<\/pre>\n<p>\ud558\uc9c0\ub9cc \uac70\ucd94\uc7a5\uc2a4\ub7ec\uc6cc \ubcf4\uc774\ub294 \uac83\uc774 \uc0ac\uc2e4\uc774\ub2e4. \uc774\ub97c \uac04\ub2e8\ud558\uac8c \ub9cc\ub4e4 \uc218 \uc5c6\uc744\uae4c?<\/p>\n<p>\uc774\uc57c\uae30\ub97c \uae38\uc5b4\uc9c0\uace0 \uc788\uc73c\ub2c8 \uc774\ubc88 \uae00\uc5d0\uc11c\ub294 \uacb0\ub860\ub9cc \uc81c\uc2dc\ud55c \ud6c4, \ub2e4\uc74c \uae00\uc5d0\uc11c \uc880 \ub354 \uc790\uc138\ud788 <strong>\uba54\ud0c0 \ud504\ub85c\uadf8\ub798\ubc0d<\/strong>\uc5d0 \ub300\ud574 \uc54c\uc544\ubcf4\ub3c4\ub85d \ud558\uc790.<\/p>\n<p>\ub2e4\uc74c\uacfc \uac19\uc774 <code>orLags()<\/code>\ub780 \ud568\uc218\ub97c \ub9cc\ub4e4 \uac83\uc774\ub2e4. \uc774 \ud568\uc218\ub294 \uc5b4\ub5a4 <strong>\uc870\uac74\uc2dd<\/strong>\uc774 \uc788\ub2e4\uba74 &#8216;\uc774 <strong>\uc870\uac74<\/strong> \ub610\ub294 1 \uc2dc\uac04\ub2e8\uacc4(timestep) \uc804\uc5d0 \uc774 \uc870\uac74&#8217;\uc744 \uc758\ubbf8\ud558\ub294 \uc870\uac74\uc2dd\uc744 \ub9cc\ub4e4\uc5b4\ub0bc \uac83\uc774\ub2e4. \ub610\ub294 &#8216;\ub610\ub294&#8217;\ub97c \uacc4\uc18d \uc5f0\uacb0\ud560 \uc218\ub3c4 \uc788\ub2e4. \ub2e4\uc74c\uc744 \ubcf4\uc790.<\/p>\n<pre><code class=\"r\">orLags = function(x, ns=1:4) {\r\n  xexpr = enexpr(x)\r\n\r\n  lst = vector('list', length=length(ns)+1)\r\n  lst[[1]] = xexpr\r\n\r\n  i = 2\r\n  for (n in ns) {\r\n    lst[[i]] = expr(lag(!!xexpr, n=!!n))\r\n    i =i + 1\r\n  }\r\n  or = function(a, b) {\r\n    expa = enexpr(a)\r\n    expb = enexpr(b)\r\n    expr(!!expa | !! expb)\r\n  }\r\n  purrr::reduce(lst, or)\r\n}\r\ndat %&gt;% \r\n  filter(eval(orLags(price.close\/price.open &gt; 1.10, ns=1:6))) %&gt;% \r\n  head(10)\r\n<\/code><\/pre>\n<pre>##      ref.date price.open price.high price.low price.close    volume\r\n## 1  2020-04-13    118.032    130.400   116.106     130.190 112377000\r\n## 2  2020-04-14    139.794    148.376   138.486     141.978 152882500\r\n## 3  2020-04-15    148.400    150.626   142.000     145.966 117885000\r\n## 4  2020-04-16    143.388    151.890   141.344     149.042 103289500\r\n## 5  2020-04-17    154.456    154.990   149.532     150.778  65641000\r\n## 6  2020-04-20    146.540    153.114   142.442     149.272  73733000\r\n## 7  2020-04-21    146.024    150.666   134.758     137.344 101045500\r\n## 8  2020-07-10    279.200    309.784   275.202     308.930 116688000\r\n## 9  2020-07-13    331.800    358.998   294.222     299.412 194927000\r\n## 10 2020-07-14    311.200    318.000   286.200     303.360 117090500\r\n<\/pre>\n<p>\uacb0\uacfc\ub294 \uc704\uc758 \uc5ec\uc12f \uc904\uc9dc\ub9ac \uc2dd\uacfc \ub3d9\uc77c\ud558\ub2e4!<\/p>\n<p>\ud568\uc218\ub9cc \ub530\ub85c \uc801\uc6a9\ud574\ubcf4\uc790.<\/p>\n<pre><code class=\"r\">orLags(price.close\/price.open &gt; 1.10, ns=1:6)\r\n<\/code><\/pre>\n<pre>## price.close\/price.open &gt; 1.1 | lag(price.close\/price.open &gt; 1.1, \r\n##     n = 1L) | lag(price.close\/price.open &gt; 1.1, n = 2L) | lag(price.close\/price.open &gt; \r\n##     1.1, n = 3L) | lag(price.close\/price.open &gt; 1.1, n = 4L) | \r\n##     lag(price.close\/price.open &gt; 1.1, n = 5L) | lag(price.close\/price.open &gt; \r\n##     1.1, n = 6L)\r\n<\/pre>\n<pre><code class=\"r\">orLags(a+b+c==3, ns=c(1,3,5))\r\n<\/code><\/pre>\n<pre>## a + b + c == 3 | lag(a + b + c == 3, n = 1) | lag(a + b + c == \r\n##     3, n = 3) | lag(a + b + c == 3, n = 5)\r\n<\/pre>\n<p>\ub180\ub77c\uc6b4\uac00?<\/p>\n<p>\uadf8\ub807\ub2e4. \uc6b0\ub9ac\uac00 \ubbf8\ucc98 \ubab0\ub790\uc9c0\ub9cc R\uc740 \uc778\uacf5\uc9c0\ub2a5\uc758 \uac00\ub2a5\uc131\uc744 \ub0b4\ud3ec\ud558\uace0 \uc788\ub2e4. \ube44\ub85d Good Old-Fashioned\uc774\uc9c0\ub9cc.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\uba54\ud0c0 \uba54\ud0c0 \uc778\uc9c0\ub77c \uc778\uc9c0\ub97c \uc778\uc9c0\ud558\ub294 \uac83\uc774\ub2e4. \uba54\ud0c0 \ud504\ub85c\uadf8\ub798\ubc0d\uc774\ub780 \ud504\ub85c\uadf8\ub7a8\uc744 \ud504\ub85c\uadf8\ub798\ubc0d\ud558\ub294 \uac83\uc774\ub2e4. \uc790\uae30 \uc778\uc2dd(self-awareness) \uc790\uae30\ub97c \uc778\uc2dd(self-awareness)\ud560 \uc218 \uc788\ub294 \ub3d9\ubb3c\uc740 \ub9ce\uc9c0 \uc54a\ub2e4\uace0 \ud55c\ub2e4. \ub2e4\uc74c\uc758 \ub3d9\uc601\uc0c1\uc740 \uc790\uae30\ub97c \uc778\uc2dd\ud560 \uc218 \uc788\ub2e4\uace0 \uc54c\ub824\uc9c4 6\uac00\uc9c0 \ub3d9\ubb3c(\ub3cc\uace0\ub798, \uc6d0\uc22d\uc774, \uae4c\uce58, \ucf54\ub07c\ub9ac, \uac1c, \ubb3c\uace0\uae30!)\uc744 \ubcf4\uc5ec\uc900\ub2e4. \ub3d9\uc601\uc0c1 \ub3d9\ubb3c\uc774 \uc790\uae30\ub97c \uc778\uc2dd\ud558\ub294 \uac83\uc744 \uc5b4\ub5bb\uac8c \uc54c \uc218 \uc788\uc744\uae4c? \uacfc\ud559\uc790\ub4e4\uc740 \ub3d9\ubb3c\uc758 \uc5bc\uad74\uc5d0 \ubb54\uac00\ub97c \ubd99\uc5ec\ub193\uace0, \ub3d9\ubb3c\uc774 \uac70\uc6b8\uc744 \ubd24\uc744 \ub54c \uc5b4\ub5bb\uac8c [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":2447,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2021\/03\/woman-g489822ab7_640.jpg","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2323"}],"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=2323"}],"version-history":[{"count":2,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2323\/revisions"}],"predecessor-version":[{"id":2448,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2323\/revisions\/2448"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/2447"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2323"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2323"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2323"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}