{"id":3623,"date":"2023-07-16T11:39:13","date_gmt":"2023-07-16T11:39:13","guid":{"rendered":"https:\/\/statorials.org\/ko\/r%e1%84%8b%e1%85%a6-%e1%84%8b%e1%85%b5%e1%86%bb%e1%84%82%e1%85%b3%e1%86%ab-%e1%84%89%e1%85%a5%e1%86%ab%e1%84%8b%e1%85%b4-%e1%84%91%e1%85%ad%e1%84%8c%e1%85%ae%e1%86%ab%e1%84%91%e1%85%a7%e1%86%ab\/"},"modified":"2023-07-16T11:39:13","modified_gmt":"2023-07-16T11:39:13","slug":"r%e1%84%8b%e1%85%a6-%e1%84%8b%e1%85%b5%e1%86%bb%e1%84%82%e1%85%b3%e1%86%ab-%e1%84%89%e1%85%a5%e1%86%ab%e1%84%8b%e1%85%b4-%e1%84%91%e1%85%ad%e1%84%8c%e1%85%ae%e1%86%ab%e1%84%91%e1%85%a7%e1%86%ab","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/r%e1%84%8b%e1%85%a6-%e1%84%8b%e1%85%b5%e1%86%bb%e1%84%82%e1%85%b3%e1%86%ab-%e1%84%89%e1%85%a5%e1%86%ab%e1%84%8b%e1%85%b4-%e1%84%91%e1%85%ad%e1%84%8c%e1%85%ae%e1%86%ab%e1%84%91%e1%85%a7%e1%86%ab\/","title":{"rendered":"R\uc5d0\uc11c \ud589\uc758 \ud45c\uc900 \ud3b8\ucc28\ub97c \uacc4\uc0b0\ud558\ub294 \ubc29\ubc95"},"content":{"rendered":"

<\/p>\n

\n

\ub2e4\uc74c \uae30\ubcf8 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\uc5ec R\uc5d0\uc11c \ud589\uc758 \ud45c\uc900 \ud3b8\ucc28\ub97c \uacc4\uc0b0\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

 row_stdev <- apply(df, 1, sd, na. rm<\/span> = TRUE<\/span> )\n<\/strong><\/pre>\n
 \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 R\uc5d0\uc11c \uc774 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 \uc608: R\uc5d0\uc11c \ud589\uc758 \ud45c\uc900 \ud3b8\ucc28 \uacc4\uc0b0<\/strong><\/span><\/h2>\n
 R\uc5d0 \ub2e4\uc74c\uacfc \uac19\uc740 \ub370\uc774\ud130 \ud504\ub808\uc784\uc774 \uc788\ub2e4\uace0 \uac00\uc815\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 #create data frame<\/span>\ndf <- data. frame<\/span> (game1=c(12, 15, 15, 18, 29, 30, 31),\n                 game2=c(15, 17, 17, 16, 29, 8, 14),\n                 game3=c(8, 22, 27, 35, 29, 22, 17))\n\n#view data frame\n<\/span>df\n\n  game1 game2 game3\n1 12 15 8\n2 15 17 22\n3 15 17 27\n4 18 16 35\n5 29 29 29\n6 30 8 22\n7 31 14 17<\/strong><\/pre>\n
 \ub2e4\uc74c \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\uc5ec \uac01 \ud589 \uac12\uc758 \ud45c\uc900 \ud3b8\ucc28\ub97c \uacc4\uc0b0\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 #calculate standard deviation of each row\nrow_stdev <- apply(df, 1, sd, na. rm<\/span> = TRUE<\/span> )\n<\/span>\n#view standard deviation of each row\nrow_stdev\n\n[1] 3.511885 3.605551 6.429101 10.440307 0.000000 11.135529 9.073772\n<\/span><\/span><\/strong><\/pre>\n
 \uacb0\uacfc\uc5d0\uc11c \uc6b0\ub9ac\ub294 \ub2e4\uc74c\uc744 \ubcfc \uc218 \uc788\uc2b5\ub2c8\ub2e4:<\/span><\/p>\n