{"id":1350,"date":"2023-07-26T18:22:00","date_gmt":"2023-07-26T18:22:00","guid":{"rendered":"https:\/\/statorials.org\/ko\/r%e1%84%8b%e1%85%b4-%e1%84%87%e1%85%b5%e1%84%89%e1%85%a1%e1%86%bc-%e1%84%90%e1%85%a6%e1%84%8b%e1%85%b5%e1%84%87%e1%85%b3%e1%86%af\/"},"modified":"2023-07-26T18:22:00","modified_gmt":"2023-07-26T18:22:00","slug":"r%e1%84%8b%e1%85%b4-%e1%84%87%e1%85%b5%e1%84%89%e1%85%a1%e1%86%bc-%e1%84%90%e1%85%a6%e1%84%8b%e1%85%b5%e1%84%87%e1%85%b3%e1%86%af","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/r%e1%84%8b%e1%85%b4-%e1%84%87%e1%85%b5%e1%84%89%e1%85%a1%e1%86%bc-%e1%84%90%e1%85%a6%e1%84%8b%e1%85%b5%e1%84%87%e1%85%b3%e1%86%af\/","title":{"rendered":"R\uc5d0\uc11c \ubd84\ud560\ud45c\ub97c \ub9cc\ub4dc\ub294 \ubc29\ubc95"},"content":{"rendered":"

<\/p>\n

\n

\ubd84\ud560\ud45c<\/strong> (“\uad50\ucc28 \ubd84\uc11d\ud45c”\ub77c\uace0\ub3c4 \ud568)\ub294 \ub450 \ubc94\uc8fc\ud615 \ubcc0\uc218 \uac04\uc758 \uad00\uacc4\ub97c \uc694\uc57d\ud558\ub294 \ud45c \uc720\ud615\uc785\ub2c8\ub2e4.<\/span><\/p>\n

\ub2e4\ud589\uc2a4\ub7fd\uac8c\ub3c4 \ud53c\ubc97 \ud14c\uc774\ube14 \uae30\ub2a5\uc744 \uc0ac\uc6a9\ud558\uc5ec R\uc5d0\uc11c \ubcc0\uc218\uc5d0 \ub300\ud55c \ubd84\ud560\ud45c\ub97c \ub9cc\ub4dc\ub294 \uac83\uc740 \uc27d\uc2b5\ub2c8\ub2e4. \uc774 \ud29c\ud1a0\ub9ac\uc5bc\uc5d0\uc11c\ub294 \uc774\ub97c \uc218\ud589\ud558\ub294 \ubc29\ubc95\uc758 \uc608\ub97c \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n

\uc608: R\uc758 \ubd84\ud560\ud45c<\/strong><\/span><\/h3>\n

\uad6c\ub9e4\ud55c \uc81c\ud488 \uc720\ud615\uacfc \uc81c\ud488\uc744 \uad6c\ub9e4\ud55c \uad6d\uac00\ub97c \ud3ec\ud568\ud558\uc5ec 20\uac1c\uc758 \ub2e4\uc591\ud55c \uc81c\ud488 \uc8fc\ubb38\uc5d0 \ub300\ud55c \uc815\ubcf4\ub97c \ud45c\uc2dc\ud558\ub294 \ub2e4\uc74c \ub370\uc774\ud130 \uc138\ud2b8\uac00 \uc788\ub2e4\uace0 \uac00\uc815\ud574 \ubcf4\uaca0\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

 #create data<\/span>\ndf <- data.frame(order_num = 1:20,\n                 product= rep<\/span> (c(' TV<\/span> ', ' Radio<\/span> ', ' Computer<\/span> '), times<\/span> =c(9, 6, 5)),\n                 country= rep<\/span> (c(' A<\/span> ', ' B<\/span> ', ' C<\/span> ', ' D<\/span> '), times<\/span> =5))\n\n#view data\n<\/span>df\n\n   order_num product country\n1 1 TV A\n2 2 TV B\n3 3 TV C\n4 4 TV D\n5 5 TV A\n6 6 TV B\n7 7 TV C\n8 8 TV D\n9 9 TV A\n10 10 Radio B\n11 11 Radio C\n12 12 Radio D\n13 13 Radio A\n14 14 Radio B\n15 15 Radio C\n16 16 Computer D\n17 17 Computer A\n18 18 Computer B\n19 19 Computer C\n20 20 Computer D<\/strong><\/pre>\n
 \ubd84\ud560\ud45c\ub97c \ub9cc\ub4e4\ub824\uba74 \uac04\ub2e8\ud788 table()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uace0 \uc81c\ud488 \ubc0f \uad6d\uac00 \ubcc0\uc218\ub97c \uc778\uc218\ub85c \uc81c\uacf5\ud558\uba74 \ub429\ub2c8\ub2e4.<\/span><\/p>\n
 #create contingency table<\/span>\ntable <- table(df$product, df$country)\n\n#view contingency table\n<\/span>table\n\n           ABCD\n  Computer 1 1 1 2\n  Radio 1 2 2 1\n  TV 3 2 2 2\n<\/strong><\/pre>\n
 addmargins()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \ud14c\uc774\ube14\uc5d0 \uc5ec\ubc31\uc744 \ucd94\uac00\ud560 \uc218\ub3c4 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 #add margins to contingency table<\/span>\ntable_w_margins <- addmargins(table)\n\n#view contingency table\n<\/span>table_w_margins\n\n            ABCD Sum\n  Computer 1 1 1 2 5\n  Radio 1 2 2 1 6\n  TV 3 2 2 2 9\n  Sum 5 5 5 5 20\n<\/strong><\/pre>\n
 \ud14c\uc774\ube14\uc744 \ud574\uc11d\ud558\ub294 \ubc29\ubc95\uc740 \ub2e4\uc74c\uacfc \uac19\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n