{"id":4291,"date":"2023-07-12T05:48:34","date_gmt":"2023-07-12T05:48:34","guid":{"rendered":"https:\/\/statorials.org\/ko\/r-%e1%84%8b%e1%85%a7%e1%84%85%e1%85%a5-%e1%84%8b%e1%85%b5%e1%86%ab%e1%84%89%e1%85%ae%e1%84%85%e1%85%b3%e1%86%af-%e1%84%8c%e1%85%a5%e1%86%a8%e1%84%8b%e1%85%ad%e1%86%bc\/"},"modified":"2023-07-12T05:48:34","modified_gmt":"2023-07-12T05:48:34","slug":"r-%e1%84%8b%e1%85%a7%e1%84%85%e1%85%a5-%e1%84%8b%e1%85%b5%e1%86%ab%e1%84%89%e1%85%ae%e1%84%85%e1%85%b3%e1%86%af-%e1%84%8c%e1%85%a5%e1%86%a8%e1%84%8b%e1%85%ad%e1%86%bc","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/r-%e1%84%8b%e1%85%a7%e1%84%85%e1%85%a5-%e1%84%8b%e1%85%b5%e1%86%ab%e1%84%89%e1%85%ae%e1%84%85%e1%85%b3%e1%86%af-%e1%84%8c%e1%85%a5%e1%86%a8%e1%84%8b%e1%85%ad%e1%86%bc\/","title":{"rendered":"A: \uc5ec\ub7ec \uc778\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec lapply() \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95"},"content":{"rendered":"

<\/p>\n

\n

R\uc758 lapply()<\/strong> \ud568\uc218\ub294 \ubaa9\ub85d, \ubca1\ud130 \ub610\ub294 \ub370\uc774\ud130 \ud504\ub808\uc784\uc758 \uac01 \uc694\uc18c\uc5d0 \ud568\uc218\ub97c \uc801\uc6a9\ud558\uace0 \uadf8\uc5d0 \ub530\ub77c \ubaa9\ub85d\uc744<\/strong> \uc5bb\ub294 \ub370 \uc0ac\uc6a9\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

\uc5ec\ub7ec \uc778\uc218\uc640 \ud568\uaed8 lapply()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\ub824\uba74 \ub2e4\uc74c \uae30\ubcf8 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

 #define function\n<\/span>my_function <- function<\/span> (var1,var2,var3){\n  var1*var2*var3\n}\n\n#apply function to list using multiple arguments\n<\/span>lapply(my_list, my_function, var2=3, var3=5)<\/span><\/strong><\/pre>\n
 \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 \uc2e4\uc81c\ub85c \uc774 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 \uc608: R\uc5d0\uc11c \uc5ec\ub7ec \uc778\uc218\uc640 \ud568\uaed8 lapply()\ub97c \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95<\/strong><\/span><\/h2>\n
 R\uc5d0 \ub2e4\uc74c \ubaa9\ub85d\uc774 \uc788\ub2e4\uace0 \uac00\uc815\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 #create a list\n<\/span>my_list <- list(A=1, B=2, C=3, D=4)\n\n#view list\n<\/span>my_list\n\n$A\n[1] 1\n\n$B\n[1] 2\n\n$C\n[1] 3\n\n$D\n[1] 4\n<\/strong><\/pre>\n
 \ub2e4\uc74c \ucf54\ub4dc\ub294 \uc138 \uac1c\uc758 \ubcc0\uc218\ub97c \ubc1b\uc544\ub4e4\uc774\uace0 \uc138 \uac1c\uc758 \ubcc0\uc218\ub97c \uacf1\ud55c \ub2e4\uc74c lapply()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \uc774 \ud568\uc218\ub97c \ubaa9\ub85d\uc758 \uac01 \uac12\uc5d0 \uc801\uc6a9\ud558\ub294 \ud568\uc218\ub97c \uc815\uc758\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 #define function\n<\/span>my_function <- function<\/span> (var1,var2,var3){\n  var1*var2*var3\n}\n\n#apply function to list using multiple arguments\n<\/span>lapply(my_list, my_function, var2=3, var3=5)\n\n$A\n[1] 15\n\n$B\n[1] 30\n\n$C\n[1] 45\n\n$D\n[1] 60\n<\/span><\/strong><\/pre>\n
 lapply()<\/strong> \ud568\uc218\ub294 \ubaa9\ub85d\uc758 \uac01 \uac12\uc5d0 3\uc744 \uacf1\ud55c \ub2e4\uc74c 5\ub97c \uacf1\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 \uc608\ub97c \ub4e4\uc5b4:<\/span><\/p>\n