# Signed weight matrix (partial correlations, for example)
W <- matrix(c( 0.0, 0.5, -0.3, 0.2,
0.5, 0.0, 0.4, -0.1,
-0.3, 0.4, 0.0, 0.6,
0.2, -0.1, 0.6, 0.0), 4, 4, byrow = TRUE)
rownames(W) <- colnames(W) <- c("A", "B", "C", "D")
centrality_expected_influence_1(W)
Run the code above in your browser using DataLab