{"id":1248,"date":"2023-07-27T03:30:45","date_gmt":"2023-07-27T03:30:45","guid":{"rendered":"https:\/\/statorials.org\/ko\/%e1%84%86%e1%85%a2%e1%86%ab%e1%84%92%e1%85%a2%e1%84%90%e1%85%b3%e1%86%ab-%e1%84%80%e1%85%a5%e1%84%85%e1%85%b5r\/"},"modified":"2023-07-27T03:30:45","modified_gmt":"2023-07-27T03:30:45","slug":"%e1%84%86%e1%85%a2%e1%86%ab%e1%84%92%e1%85%a2%e1%84%90%e1%85%b3%e1%86%ab-%e1%84%80%e1%85%a5%e1%84%85%e1%85%b5r","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/%e1%84%86%e1%85%a2%e1%86%ab%e1%84%92%e1%85%a2%e1%84%90%e1%85%b3%e1%86%ab-%e1%84%80%e1%85%a5%e1%84%85%e1%85%b5r\/","title":{"rendered":"R\ub85c \ub9e8\ud574\ud2bc \uac70\ub9ac\ub97c \uacc4\uc0b0\ud558\ub294 \ubc29\ubc95(\uc608\uc81c \ud3ec\ud568)"},"content":{"rendered":"

<\/p>\n

\n

\ub450 \ubca1\ud130 A<\/em> \uc640 B<\/em> \uc0ac\uc774\uc758 \ub9e8\ud574\ud2bc \uac70\ub9ac\ub294<\/strong> \ub2e4\uc74c\uacfc \uac19\uc774 \uacc4\uc0b0\ub429\ub2c8\ub2e4.<\/span><\/p>\n

\u03a3|a i<\/sub> \u2013 b i<\/sub> |<\/span><\/p>\n

\uc5ec\uae30\uc11c i<\/em> \ub294 \uac01 \ubca1\ud130\uc758 i \ubc88\uc9f8<\/sup> \uc694\uc18c\uc785\ub2c8\ub2e4.<\/span><\/p>\n

\uc774 \uac70\ub9ac\ub294 \ub450 \ubca1\ud130 \uac04\uc758 \ucc28\uc774\uc810\uc744 \uce21\uc815\ud558\ub294 \ub370 \uc0ac\uc6a9\ub418\uba70 \ub2e4\uc591\ud55c \uae30\uacc4 \ud559\uc2b5 \uc54c\uace0\ub9ac\uc998<\/a> \uc5d0\uc11c \uc77c\ubc18\uc801\uc73c\ub85c \uc0ac\uc6a9\ub429\ub2c8\ub2e4.<\/span><\/p>\n

\uc774 \ud29c\ud1a0\ub9ac\uc5bc\uc5d0\uc11c\ub294 R\uc5d0\uc11c \ub9e8\ud574\ud2bc \uac70\ub9ac\ub97c \uacc4\uc0b0\ud558\ub294 \uba87 \uac00\uc9c0 \uc608\ub97c \uc81c\uacf5\ud569\ub2c8\ub2e4.<\/span><\/p>\n

\uc608 1: \ub450 \ubca1\ud130 \uc0ac\uc774\uc758 \ub9e8\ud574\ud2bc \uac70\ub9ac<\/strong><\/span><\/h3>\n

\ub2e4\uc74c \ucf54\ub4dc\ub294 R\uc5d0\uc11c \ub450 \ubca1\ud130 \uc0ac\uc774\uc758 \ub9e8\ud574\ud2bc \uac70\ub9ac\ub97c \uacc4\uc0b0\ud558\ub294 \uc0ac\uc6a9\uc790 \uc815\uc758 \ud568\uc218\ub97c \ub9cc\ub4dc\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n

 #create function to calculate Manhattan distance<\/span>\nmanhattan_dist <- function<\/span> (a, b){\n     dist <- abs<\/span> (ab)\n     dist < -sum<\/span> (dist)\n     return<\/span> (dist)\n}\n\n#define two vectors\n<\/span>a <- c(2, 4, 4, 6)\n\nb <- c(5, 5, 7, 8)\n\n#calculate Manhattan distance between vectors\nmanhattan_dist(a, b)\n<\/span>\n[1] 9<\/span><\/span><\/strong><\/pre>\n
 \uc774 \ub450 \ubca1\ud130 \uc0ac\uc774\uc758 \ub9e8\ud574\ud2bc \uac70\ub9ac\ub294 9<\/strong> \uc785\ub2c8\ub2e4.<\/span><\/p>\n
 \ub9e8\ud574\ud2bc\uae4c\uc9c0\uc758 \uac70\ub9ac\ub97c \uc190\uc73c\ub85c \ube60\ub974\uac8c \uacc4\uc0b0\ud558\uc5ec \uc774\uac83\uc774 \uc62c\ubc14\ub978\uc9c0 \ud655\uc778\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 \u03a3|a i<\/sub> \u2013 b i<\/sub> | = |2-5| + |4-5| + |4-7| + |6-8| = 3 + 1 + 3 + 2 = 9<\/strong> .<\/span><\/p>\n
 \uc608\uc81c 2: \ud589\ub82c\uc758 \ubca1\ud130 \uac04 \ub9e8\ud574\ud2bc \uac70\ub9ac<\/strong><\/span><\/h3>\n
 \ud589\ub82c\uc758 \uc5ec\ub7ec \ubca1\ud130 \uc0ac\uc774\uc758 \ub9e8\ud574\ud2bc \uac70\ub9ac\ub97c \uacc4\uc0b0\ud558\ub824\uba74 R\uc5d0 \ub0b4\uc7a5\ub41c dist()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 #create four vectors<\/span>\na <- c(2, 4, 4, 6)\n\nb <- c(5, 5, 7, 8)\n\nc <- c(9, 9, 9, 8)\n\nd <- c(1, 2, 3, 3)\n\n#bind vectors into one matrix\n<\/span>mat <- rbind(a, b, c, d)\n\n#calculate Manhattan distance between each vector in the matrix\n<\/span>dist(mat, method = \" manhattan<\/span> \")\n\n   ABC\nb 9      \nc 19 10   \nd 7 16 26\n<\/strong><\/pre>\n
 \uc774 \ucd9c\ub825\uc744 \ud574\uc11d\ud558\ub294 \ubc29\ubc95\uc740 \ub2e4\uc74c\uacfc \uac19\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n