[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [igraph] PageRank & Hello.
From: |
Gábor Csárdi |
Subject: |
Re: [igraph] PageRank & Hello. |
Date: |
Mon, 11 May 2009 20:41:33 +0200 |
On Mon, May 11, 2009 at 7:55 PM, Martin Conte Mac Donell
<address@hidden> wrote:
> On Mon, May 11, 2009 at 2:09 PM, Gábor Csárdi <address@hidden> wrote:
>> No, I think our page rank implementation is correct, at least for this graph.
>>
>> > g <- graph( c(0,1,1,0, 4,3,5,3,6,3,2,3) )
>> > A <- get.adjacency(g)
>> > page.rank(g)$vector
>> [1] 0.39617763 0.39617763 0.02370186 0.11283730 0.02370186 0.02370186
>> 0.02370186
>> > norm <- function(x) x/sum(x)
>> > norm(eigen(t(A) * 0.85 + 0.15/7)$vectors[,1])
>> [1] 0.39617763 0.39617763 0.02370186 0.11283730 0.02370186 0.02370186
>> 0.02370186
>>
>> Best,
>> Gabor
>
> Yes, you are right. The implementation is right but, isn't it
> conceptually incorrect?
>
> I mean:
>
> indegree = 5 and outdegree = 0 vs indegree = 1 and outdegree = 1
Martin,
maybe it is not, I don't know.
But I am not really sure what I could do about this. You can certainly
use some other centrality measures if you like, that work better for
graphs with short loops.
Best,
G.
> Thank you,
> M
>
>
> _______________________________________________
> igraph-help mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/igraph-help
>
--
Gabor Csardi <address@hidden> UNIL DGM