[R][ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯åˆ†æž] ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ã«ãŠã„ã¦ã©ã‚Œãらã„ä¸å¿ƒçš„ã‹ã®æŒ‡æ¨™ - yokkunsã®æ—¥è¨˜ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯åˆ†æžã§æœ€ã‚‚良ã用ã„られる指標ã¨ã—ã¦ã€ä¸å¿ƒæ€§ã¨ã„ã†ã‚‚ã®ãŒã‚ã‚‹ 今回ã¯ã€ãã®ä¸ã§ã‚‚3ã¤ã®æŒ‡æ¨™ã«çµžã£ã¦ç´¹ä»‹ 次数ä¸å¿ƒæ€§ å‹é”ãŒå¤šã„人ãŒé«˜ã評価ã•ã‚Œã‚‹æŒ‡æ¨™ å‹é”ã®æ•°ã‚’æ•°ãˆã‚‹ã ã‘ãªã®ã§ã€è¨ˆç®—ã‚‚ç°¡å˜ ãƒ‡ãƒ¼ã‚¿ã®å…¥åŠ›ã¨æç”» A <- matrix(c( 0,1,1,1,1,1,1,0, 1,0,1,1,1,1,0,0, 1,1,0,0,0,0,0,1, 1,1,0,0,0,0,1,0, 1,1,0,0,0,1,0,0, 1,1,0,0,1,0,0,0, 1,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0), nrow = 8, byrow = TRUE) g <- graph.adjacency(A, mode = "undirected") plot(g) 次数ä¸å¿ƒæ€§ã®ç®—出 > degree(g) [1] 6 5 3 3 3 3 2 1 PageRank å˜ç´”ã«å‹é”ãŒå¤šã„ã ã‘ã§
![[R][ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯åˆ†æž] ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ã«ãŠã„ã¦ã©ã‚Œãらã„ä¸å¿ƒçš„ã‹ã®æŒ‡æ¨™ - yokkunsã®æ—¥è¨˜](https://cdn-ak-scissors.b.st-hatena.com/image/square/4b0dc518ac9c3d59527843bf3413ccb75b89c7ff/height=288;version=1;width=512/https%3A%2F%2Fcdn.image.st-hatena.com%2Fimage%2Fscale%2F29a0637125130aecb49623ef5e0558bf065a2650%2Fbackend%3Dimagemagick%3Bheight%3D1300%3Bversion%3D1%3Bwidth%3D1300%2Fhttp%253A%252F%252Fgyazo.com%252F7a94eca98f84abc4fe76969e4ea49337.png)
大è¦æ¨¡ãªJavaScript開発ã®è©±
{{#tags}}- {{label}}
{{/tags}}