{"id":9700,"date":"2017-12-26T02:34:04","date_gmt":"2017-12-25T17:34:04","guid":{"rendered":"http:\/\/hlog.kr\/wordpress\/?p=9700"},"modified":"2020-09-13T03:41:21","modified_gmt":"2020-09-12T18:41:21","slug":"r-%ed%94%84%eb%a1%9c%ea%b7%b8%eb%9e%a8-%ec%96%b8%ec%96%b4-r-%ed%94%84%eb%a1%9c%ea%b7%b8%eb%9e%98%eb%b0%8d%ec%9d%84-%ed%95%b4%eb%b3%b4%eb%a9%b0","status":"publish","type":"post","link":"http:\/\/hyunsik.me\/wordpress\/?p=9700","title":{"rendered":"R \uc5b8\uc5b4 &#8211; R \ud504\ub85c\uadf8\ub798\ubc0d\uc744 \ud574\ubcf4\uba70"},"content":{"rendered":"<p><center><img src=\"http:\/\/hlog.kr\/wordpress\/wp-content\/uploads\/2017\/12\/8c7958cb652b36ffea50fae935118b3646fdc3c1932161573b8551ac462178bce26685384d2a2591132d9a45ee68c2b0edd8a80e2c77852abb380ed6976a4d76be5b2fc0f73917e0bf7d0d8557342724.png\" alt=\"8c7958cb652b36ffea50fae935118b3646fdc3c1932161573b8551ac462178bce26685384d2a2591132d9a45ee68c2b0edd8a80e2c77852abb380ed6976a4d76be5b2fc0f73917e0bf7d0d8557342724\" width=\"100\" \/><\/center><\/p>\n<p>\ub300\ud559\uc6d0 \uc218\uc5c5\uc5d0\uc11c R \uc744 \uc811\ud558\uac8c \ub418\uc5b4\uc11c \ud55c \ud55c\uae30\ub3d9\uc548 \ub300\ub7b5\uc801\uc73c\ub85c R \uc758 \ub290\ub08c\uc744 \uc0b4\ud3b4\ubcf4\uc558\ub294\ub370, \uc774\ub300\ub85c \ub05d\ub0b4\uae30\uc5d0\ub294 \uc544\uc26c\uc6b4 \ub9c8\uc74c\uc5d0 \uac00\ubccd\uac8c \uad00\ub828 \ud3ec\uc2a4\ud2b8\ub97c \uc791\uc131\ud55c\ub2e4.<br \/>\n\u203b R \ud504\ub85c\uadf8\ub798\ubc0d \uc5b8\uc5b4 : <a href=\"https:\/\/namu.wiki\/w\/R(%ED%94%84%EB%A1%9C%EA%B7%B8%EB%9E%98%EB%B0%8D%20%EC%96%B8%EC%96%B4)\" target=\"_blank\" rel=\"noopener noreferrer\">\ub098\ubb34\uc704\ud0a4 \ucc38\uace0<\/a><br \/>\n\u203b R \uc18c\uac1c \ubc0f \ub2e4\uc6b4\ub85c\ub4dc : <a href=\"https:\/\/www.r-project.org\/\">https:\/\/www.r-project.org\/<\/a><br \/>\n\u203b RStudio \uc18c\uac1c \ubc0f \ub2e4\uc6b4\ub85c\ub4dc : <a href=\"https:\/\/www.rstudio.com\/\">https:\/\/www.rstudio.com\/<\/a><\/p>\n<p>R \uc5b8\uc5b4\ub294 1993\ub144 \uc624\ud074\ub79c\ub4dc \ub300\ud559\uad50\uc5d0\uc11c \uac1c\ubc1c\ub41c \ud1b5\uacc4 \ubc0f \uadf8\ub798\ud504 \uc791\uc5c5\uc744 \uc704\ud55c \uc778\ud130\ud504\ub9ac\ud130 \ud504\ub85c\uadf8\ub798\ubc0d \uc5b8\uc5b4\ub85c GNU GPL \ub77c\uc774\uc13c\uc2a4\ub85c \ubc30\ud3ec\ub418\uace0 \uc788\uae30 \ub54c\ubb38\uc5d0 \ubb34\ub8cc\ub85c \uc0ac\uc6a9\ud560 \uc218 \uc788\ub2e4.<br \/>\n\u203b GNU : GNU is Not Unix, GPL : General Public Licens<br \/>\n\u203b GNU : <a href=\"https:\/\/ko.wikipedia.org\/wiki\/GNU\" target=\"_blank\" rel=\"noopener noreferrer\">\uc704\ud0a4\ud53c\ub514\uc544 \ucc38\uace0<\/a><br \/>\n\u203b GPL : <a href=\"https:\/\/ko.wikipedia.org\/wiki\/GNU_%EC%9D%BC%EB%B0%98_%EA%B3%B5%EC%A4%91_%EC%82%AC%EC%9A%A9_%ED%97%88%EA%B0%80%EC%84%9C\" target=\"_blank\" rel=\"noopener noreferrer\">\uc704\ud0a4\ud53c\ub514\uc544 \ucc38\uace0<\/a><\/p>\n<p>\uac1c\uc778\uc801\uc73c\ub85c\ub294 \uad49\uc7a5\ud55c \uc9ec\ubf55 \uc5b8\uc5b4\ub85c \ub290\uaef4\uc84c\ub2e4. SQL \uc5d0 \uc77c\ubc18 \ud504\ub85c\uadf8\ub798\ubc0d \uc5b8\uc5b4\ub97c \uc785\ud614\ub294\ub370, \ub9cc\ub4e0 \uc0ac\ub78c\ub4e4\uc740 \uc77c\ubc18 \uac1c\ubc1c\uc790\uac00 \uc544\ub2cc \ud1b5\uacc4\ud559\uc790\ub4e4\uc778 \uac83 \uac19\uc740 \ub290\ub08c\uc774\ub77c\uace0 \ud560\uae4c&#8230; \uac00\uc7a5 \uc26c\uc6b4 \uc608\ub85c \ub300\uc785\ubb38\ub3c4 &#8220;=&#8221; \uac00 \uc544\ub2cc &#8220;&lt;-&#8221; \ub85c \ud45c\ud604\ud558\ub294 \uac83\uc774 \uc77c\ubc18\uc801\uc73c\ub85c\ub098 \ud1b5\uacc4\ud559\uc790\uc758 \uc785\uc7a5\uc5d0\uc11c\ub294 \ub2f9\uc5f0\ud55c \ub290\ub08c\uc774\uaca0\uc9c0\ub9cc, \ud504\ub85c\uadf8\ub798\uba38\uc758 \uc785\uc7a5\uc5d0\uc11c\ub294 \uad49\uc7a5\ud788 \ub3c5\ud2b9\ud55c \uac83\uc774\ub2c8 \ub9d0\uc774\ub2e4.<br \/>\n\u203b \ubb3c\ub860 R \uc5b8\uc5b4 \uc548\uc5d0\uc11c\ub294 &#8220;=&#8221; \ub3c4 &#8220;&lt;-&#8221; \uc640 \ub3d9\uc77c\ud558\uac8c \uc778\uc2dd\ud55c\ub2e4.<br \/>\n\u203b IDE(\ud1b5\ud569\uac1c\ubc1c\ud658\uacbd)\uc740 RStudio \ub97c \uc0ac\uc6a9\ud574\ubcf4\uc558\ub294\ub370 \uc0c1\ub2f9\ud788 \ud3b8\ub9ac\ud558\ub2e4.<br \/>\n&nbsp;&nbsp;&nbsp;&nbsp;[\uc77c\ubc18\uc801\uc73c\ub85c IDE \ub294 \uc624\uc9c1 \uadf8 \uc5b8\uc5b4\ub9cc\uc744 \uc704\ud55c IDE \uac00 \ub2f9\uc5f0\ud788 \uac00\uc7a5 \ud3b8\ud558\ub2e4.]<\/p>\n<p>R \uc740 \ud1b5\uacc4 \uc790\uccb4\ub97c \uc704\ud55c \ubaa9\uc801\uc5d0 \uac15\ub825\ud558\uac8c \ubc18\uc751\ud55c\ub2e4. \ub300\uc6a9\ub7c9 \ub370\uc774\ud130\ub97c \ub2e4\uc591\ud55c \ubc29\uc2dd\uc73c\ub85c \ubc1b\uc544\ub4e4\uc774\uace0 \uadf8 \ub370\uc774\ud130\ub4e4\uc744 \ube60\ub974\uac8c \ud578\ub4e4\ub9c1\ud560 \uc218 \uc788\uc73c\uba70, SQL \uc744 \ud3ec\ud568\ud55c \ub2e4\uc591\ud55c \uc5b8\uc5b4 \ubc0f \ud504\ub85c\uadf8\ub7a8\ubcf4\ub2e4 \uc27d\uace0 \uac04\ub2e8\ud558\uac8c \uc5ec\ub7ec\uac00\uc9c0 \ud1b5\uacc4 \uad00\ub828 \uc790\ub8cc \ubc0f \uadf8\ub798\ud504 \ub4f1\uc758 \uc774\ubbf8\uc9c0\ub97c \ub9cc\ub4e4\uc5b4\ub0bc \uc218 \uc788\ub2e4.<br \/>\n\u203b \uc624\ud508\uc18c\uc2a4 \ub2f5\uac8c \ud328\ud0a4\uc9c0(\ub77c\uc774\ube0c\ub7ec\ub9ac)\uc758 \uc591\ub3c4 \uc5b4\ub9c8\uc5b4\ub9c8\ud558\ub2e4.<\/p>\n<p>\ub2e8, R \uc740 \ud504\ub85c\uadf8\ub7a8\uc744 \ub9cc\ub4dc\ub294 \uc5b8\uc5b4\ub294 \uc544\ub2cc \uac83\uc73c\ub85c \ubcf4\uc778\ub2e4. \ud504\ub85c\uadf8\ub798\uba38\uc758 \uad00\uc810\uc5d0\uc11c \ubc14\ub77c\ubcf4\uba74 R \uc740 \ub370\uc774\ud130\ubca0\uc774\uc2a4\ub9cc\uc744 \ud578\ub4e4\ub9c1\ud558\ub294 SQL \uacfc \ud761\uc0ac\ud558\ub2e4. \ub9cc\uc57d R \uc744 \uc0ac\uc6a9\ud55c \ud504\ub85c\uadf8\ub7a8\uc744 \uac1c\ubc1c\ud574\uc57c \ud55c\ub2e4\uba74, \ud504\ub85c\uadf8\ub7a8 \uc548\uc5d0\uc11c DB \uc5d0 \uc5f0\uacb0\ud558\uace0 SQL \uc744 \uc804\ub2ec\ud558\uc5ec \uadf8 \uacb0\uacfc\uac12\uc744 \uc774\uc6a9\ud558\ub294 \uac83\ucc98\ub7fc, \ub2e4\ub978 \uc5b8\uc5b4\ub85c \ud504\ub85c\uadf8\ub7a8\uc744 \uac1c\ubc1c\ud558\uba70 R \uc5b8\uc5b4\ub97c \uadf8 \uc911\uac04\uc5d0 \uc0bd\uc785\ud558\uc5ec \uc0ac\uc6a9\ud560 \uc218\ub294 \uc788\uc744 \uac83\uc73c\ub85c \ubcf4\uc778\ub2e4.<br \/>\n\u203b \ubb3c\ub860 R\uc740 \uc6d0\ub798 \ubaa9\uc801\uc774 \ud1b5\uacc4\uc774\uba70, \uad73\uc774 \ud504\ub85c\uadf8\ub7a8\ud654 \ud560 \ud544\uc694\ub294 \uc5c6\uc5b4\ubcf4\uc778\ub2e4.<\/p>\n<p>R \ud504\ub85c\uadf8\ub798\ubc0d\uc758 \uac04\ub2e8\ud788 \uc608\uc81c\ub97c \uc18c\uac1c\ud558\uc790\uba74 \uc544\ub798\uc640 \uac19\ub2e4.<\/p>\n<p>[line][\/line]<\/p>\n<pre style=\"font-family: NanumGothic; background-color: #e3e3f3;\">\r\n\r\n#########################\r\n########### 1 ###########\r\n#########################\r\nquadratic_formula <- function (a, b, c) { \r\n  d <- (b^2) - (4*a*c);\r\n  if(d < 0) {\r\n    return('There are no real roots.');\r\n  }\r\n  else {\r\n    numerator1 <- (-b) + sqrt(d);\r\n    numerator2 <- (-b) - sqrt(d);\r\n    denumerator <- 2*a;\r\n    \r\n    result = list(\r\n      minus_result = numerator1\/denumerator,\r\n      plus_result = numerator2\/denumerator\r\n    );\r\n    \r\n    return(result);\r\n  }\r\n}\r\nquadratic_formula(1, 3, 2);\r\n\r\n\r\n\r\n\r\n#########################\r\n########### 2 ###########\r\n#########################\r\n################\r\n##### 2(a) ##### \r\n################\r\nz=0;\r\nfor(i in 1:10) {\r\n  for(j in 1:10) {\r\n    z <- z + ((i^4) \/ (10 + 4*(j^3)));\r\n  }\r\n}\r\nz;\r\n\r\n\r\n################\r\n##### 2(b) ##### \r\n################\r\nz=0;\r\nfor(i in 1:10) {\r\n  for(j in 1:10) {\r\n    z <- z + (3 + (i*j));\r\n  }\r\n}\r\nz;\r\n\r\n\r\n\r\n#########################\r\n########### 3 ###########\r\n#########################\r\nsomefunction <- function (x) { \r\n  result <- NULL;\r\n  for(i in 1:length(na.exclude(x))) {\r\n    if(x[i] < 0) {\r\n      result <- cbind(result, (x[i]^2) + (2*x[i]) + 3);\r\n    }\r\n    else if(x[i] >= 0 && x[i] < 2) {\r\n      result <- cbind(result, x[i] + 3);\r\n    }\r\n    else if(x[i] >= 2) {\r\n      result <- cbind(result, (x[i]^2) + (4*x[i]) - 7);\r\n    }\r\n    \r\n  }\r\n  return(result);\r\n} \r\n\r\n#########################\r\n########### 4 ###########\r\n#########################\r\nxaxis <- seq(-3,3);\r\nyaxis <- somefunction(xaxis);\r\nrbind(xaxis, yaxis); ## check the result value ##\r\nplot(xaxis, yaxis);\r\n\r\n#########################\r\n########### 5 ###########\r\n#########################\r\nmtcars[mtcars$mpg>25,];\r\n\r\n#########################\r\n########### 6 ###########\r\n#########################\r\nmtcars[c(order(-mtcars$cyl, mtcars$mpg)),];\r\n\r\n#########################\r\n########### 7 ###########\r\n#########################\r\nlibrary(plyr);\r\nddply(mtcars, .(am=mtcars$am, cyl=mtcars$cyl), summarize, mpg=mean(mpg), wt=mean(wt));\r\n\r\n#########################\r\n########### 8 ###########\r\n#########################\r\nmean(mtcars[mtcars$hp > 150,]$mpg);\r\nmean(mtcars[mtcars$hp > 150,]$wt);\r\n\r\n\r\n<\/pre>\n<pre style=\"font-family: NanumGothic; background-color: #e3e3f3;\">\r\n<\/pre>\n<p>[line][\/line]<\/p>\n<p>\uac1c\uc778\uc801\uc73c\ub85c \ubcc4\ub85c \uc88b\uc544\ud558\uc9c0 \uc54a\ub294 \ub2e8\uc5b4\uc778 &#8220;4\ucc28 \ud601\uba85&#8221;\uc774\ub77c\ub294 \ub2e8\uc5b4\ub97c \uc0ac\uc6a9\ud560 \ub54c &#8220;\ube45 \ub370\uc774\ud130&#8221; \ub77c\ub294 \ub2e8\uc5b4\uac00 \ub4e4\uc5b4\uac00\uac8c \ub418\uace0, &#8220;\ube45 \ub370\uc774\ud130&#8221;\uac00 \ub4e4\uc5b4\uac08 \ub54c \uc790\uc8fc \ub4f1\uc7a5\ud558\ub294 \uc5b8\uc5b4\uac00 \ubc14\ub85c R \uc5b8\uc5b4\uc774\ub2e4. &#8220;4\ucc28 \ud601\uba85&#8221;, &#8220;\ube45 \ub370\uc774\ud130&#8221;\ub294 \uc798 \ubaa8\ub974\uaca0\uc9c0\ub9cc, R \uc5b8\uc5b4\ub294 \ubd84\uba85\ud788 \uc7ac\ubbf8\uc788\ub294 \uc5b8\uc5b4\uac00 \ub9de\uc73c\uba70, \ud1b5\uacc4 \ubd84\uc11d\uc5d0\ub294 \ub9c9\uac15\ud55c \uac83\uc774 \ud655\uc2e4\ud558\ub2e4. t.test(), prop.test(), var.test(), lm(), plot() \ub4f1\uacfc \uac19\uc740 \ud1b5\uacc4 \uac80\uc815\/\ubd84\uc11d \ubc0f \uadf8\ub798\ud504 \uc791\uc131\uacfc \uad00\ub828\ub41c \ud568\uc218\ub4e4\uc774 \uae30\ucd08\uc801\uc73c\ub85c\ub3c4 \ub9c9\uac15\ud558\uac8c \uc9c0\uc6d0\ub418\uba70, \ucd94\uac00 \ud328\ud0a4\uc9c0\ub85c\ub3c4 \uc5b4\ub9c8\uc5b4\ub9c8\ud558\uac8c \uc9c0\uc6d0\ub418\uace0 \uc788\uae30 \ub54c\ubb38\uc774\ub2e4.<\/p>\n<p>\ub610\ud55c R \uc744 \uc0ac\uc6a9\ud558\ub294 \uac83\uc740 \uc624\uc9c1 \ud1b5\uacc4\ub97c \uc704\ud55c \ub370\uc774\ud130 \ucc98\ub9ac\ub97c \uc704\ud558\uc5ec \uc0ac\uc6a9\ud558\ub294 \uac83\uc774\uace0, \ub54c\ubb38\uc5d0 \ud504\ub85c\uadf8\ub798\ubc0d\uc5d0 \ub300\ud55c \uc9c0\uc2dd\ubcf4\ub2e4 \ud1b5\uacc4\ud559\uc5d0 \ub300\ud55c \uc9c0\uc2dd\uc774 \ud6e8\uc52c \ub354 \ub9ce\uc774 \uc694\uad6c\ub41c\ub2e4. SQL \uacfc \ube44\uc2b7\ud558\uc9c0\ub9cc, SQL \uc758 \ub2e4\uc591\ud55c \ubaa9\uc801\uacfc\ub294 \ub2e4\ub974\uac8c \uc644\uc804\ud788 \ud1b5\uacc4 \ubd84\uc11d\uc744 \uc704\ud55c \uc5b8\uc5b4\ub85c \ud310\ub2e8\ub41c\ub2e4.<\/p>\n<p>R \uc774\ub77c\ub294 \uc0dd\uc18c\ud55c \uc5b8\uc5b4\ub97c \ud1b5\ud574 \uc624\ub79c\ub9cc\uc5d0 \ud504\ub85c\uadf8\ub798\ubc0d\uc744 \ud574\ubcf4\uac8c \ub418\uc5b4 \uc870\uae08\uc740 \uc990\uac70\uc6e0\uc5c8\ub358 \uac83 \uac19\ub2e4. \ud1b5\uacc4\ub97c \uc798 \uc54c\uace0 \uc788\ub2e4\uba74 \ub354 \uc7ac\ubbf8\uc788\uac8c \ud560 \uc218 \uc788\uc5c8\uc744 \uac83 \uac19\uc740\ub370 \uadf8\ub807\uc9c0 \ubabb\ud588\uae30 \ub54c\ubb38\uc5d0 \uc544\uc27d\ub2e4. \uc5b8\uc820\uac00 \ud1b5\uacc4\uc640 R \uc5b8\uc5b4\ub97c \ub2e4\uc2dc \ub9cc\ub0a0 \uc218 \uc788\uae30\ub97c \ubc14\ub77c\uba70 \ub9c8\uce5c\ub2e4.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\ub300\ud559\uc6d0 \uc218\uc5c5\uc5d0\uc11c R \uc744 \uc811\ud558\uac8c \ub418\uc5b4\uc11c \ud55c \ud55c\uae30\ub3d9\uc548 \ub300\ub7b5\uc801\uc73c\ub85c R \uc758 \ub290\ub08c\uc744 \uc0b4\ud3b4\ubcf4\uc558\ub294\ub370, \uc774\ub300\ub85c \ub05d\ub0b4\uae30\uc5d0\ub294 \uc544\uc26c\uc6b4 \ub9c8\uc74c\uc5d0 \uac00\ubccd\uac8c \uad00\ub828 \ud3ec\uc2a4\ud2b8\ub97c \uc791\uc131\ud55c\ub2e4. \u203b R \ud504\ub85c\uadf8\ub798\ubc0d \uc5b8\uc5b4 : \ub098\ubb34\uc704\ud0a4 \ucc38\uace0 \u203b R \uc18c\uac1c \ubc0f \ub2e4\uc6b4\ub85c\ub4dc : https:\/\/www.r-project.org\/ \u203b RStudio \uc18c\uac1c \ubc0f \ub2e4\uc6b4\ub85c\ub4dc : https:\/\/www.rstudio.com\/ R \uc5b8\uc5b4\ub294 1993\ub144 \uc624\ud074\ub79c\ub4dc \ub300\ud559\uad50\uc5d0\uc11c \uac1c\ubc1c\ub41c \ud1b5\uacc4 \ubc0f \uadf8\ub798\ud504 \uc791\uc5c5\uc744 \uc704\ud55c \uc778\ud130\ud504\ub9ac\ud130 \ud504\ub85c\uadf8\ub798\ubc0d [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[176],"tags":[2158,703,448,1536],"jetpack_featured_media_url":"","views":"","jetpack-related-posts":[],"_links":{"self":[{"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/9700"}],"collection":[{"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=9700"}],"version-history":[{"count":13,"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/9700\/revisions"}],"predecessor-version":[{"id":13597,"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/9700\/revisions\/13597"}],"wp:attachment":[{"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=9700"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=9700"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/hyunsik.me\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=9700"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}