[[ru:dm:twitter]]
 
Trace: • twitter
Table of Contents

Twitter

Combining files

Combine

Comments

Assume C is a commenting network - u comments on v. Let 1 be a vector filled with 1s. Then, see netr2.pdf, slide 32, 1 C(k) for large enough k gives the level (distance from the corresponding basic node) of each node; and 1 CT(k) the number of commentators.

The procedure for levels in Pajek: 

Read commenting network C
Vector/Create constant vector s(0) with 0 
Vector/Create constant vector v(0) with 1
for k = 0, 1, 2, ... repeat:
   Operations/Network+Vector/Network*vector  -->  v(k+1)
   Vector/Info - If vector is 0 STOP
   Select s(k) as the second vector
   Vectors/Add --> s(k+1)
   Select vector v(k+1) as the first vector 
Vector s(k) is the result

The procedure for commentators is the same, except the first line is replaced by 

Network/Transform/Transpose 1-mode

Example

> c <- c(
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0)
> C <- matrix(c,byrow=TRUE,nrow=15)
> colnames(C) <- rownames(C) <- paste("v",1:15,sep="")
> C
    v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
v1   0  0  0  0  0  0  0  0  0   0   0   0   0   0   0
v2   0  0  0  0  0  0  0  0  0   0   0   0   0   0   0
v3   1  0  0  0  0  0  0  0  0   0   0   0   0   0   0
v4   1  0  0  0  0  0  0  0  0   0   0   0   0   0   0
v5   1  0  0  0  0  0  0  0  0   0   0   0   0   0   0
v6   0  1  0  0  0  0  0  0  0   0   0   0   0   0   0
v7   0  0  0  0  0  1  0  0  0   0   0   0   0   0   0
v8   0  0  0  0  0  1  0  0  0   0   0   0   0   0   0
v9   0  0  0  0  1  0  0  0  0   0   0   0   0   0   0
v10  0  0  0  1  0  0  0  0  0   0   0   0   0   0   0
v11  0  0  0  1  0  0  0  0  0   0   0   0   0   0   0
v12  0  0  0  0  0  0  0  0  0   0   1   0   0   0   0
v13  0  0  0  0  0  0  0  0  0   0   1   0   0   0   0
v14  0  0  0  0  0  0  0  1  0   0   0   0   0   0   0
v15  0  0  0  0  0  0  0  0  0   0   0   0   1   0   0
>

Number of commentators

> v <- rep(1,15); s <- rep(0,15)
> (v <- v%*%C); (s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  3  1  0  2  1  2  0  1  0   0   2   0   1   0   0
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  3  1  0  2  1  2  0  1  0   0   2   0   1   0   0
> (v <- v%*%C); (s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  3  2  0  2  0  1  0  0  0   0   1   0   0   0   0
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  6  3  0  4  1  3  0  1  0   0   3   0   1   0   0
> (v <- v%*%C); (s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  2  1  0  1  0  0  0  0  0   0   0   0   0   0   0
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  8  4  0  5  1  3  0  1  0   0   3   0   1   0   0
> (v <- v%*%C); (s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  1  0  0  0  0  0  0  0  0   0   0   0   0   0   0
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  9  4  0  5  1  3  0  1  0   0   3   0   1   0   0
> (v <- v%*%C); (s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  0  0  0  0  0  0  0   0   0   0   0   0   0
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  9  4  0  5  1  3  0  1  0   0   3   0   1   0   0

Level

> v <- rep(1,15); s <- rep(0,15)
> t(v <- C%*%v); t(s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  1  1  1  1  1  1  1   1   1   1   1   1   1
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  1  1  1  1  1  1  1   1   1   1   1   1   1
> t(v <- C%*%v); t(s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  0  0  0  0  1  1  1   1   1   1   1   1   1
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  1  1  1  1  2  2  2   2   2   2   2   2   2
> t(v <- C%*%v); t(s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  0  0  0  0  0  0  0   0   0   1   1   1   1
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  1  1  1  1  2  2  2   2   2   3   3   3   3
> t(v <- C%*%v); t(s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  0  0  0  0  0  0  0   0   0   0   0   0   1
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  1  1  1  1  2  2  2   2   2   3   3   3   4
> t(v <- C%*%v); t(s <- s+v)
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  0  0  0  0  0  0  0   0   0   0   0   0   0
     v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12 v13 v14 v15
[1,]  0  0  1  1  1  1  2  2  2   2   2   3   3   3   4

To do

Pajek (Andrej): iterative sum

ru/dm/twitter.txt · Last modified: 2019/05/16 10:29 by vlado
 
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Noncommercial-Share Alike 3.0 Unported
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki