Я пытаюсь объединить атрибуты ребер для каждой вершины в сети. В частности, я хотел бы взять среднее значение всех входящих ребер всех вершин.
Есть ли более эффективный способ сделать это, чем:
# Toy example
library(statnet)
num_vertices <- 10
g<-network.initialize(num_vertices)
g[1:10,1:10]<-1
plot(g)
g %e% "age" <- matrix(1:100, 10, 10)
# Proposal
apply(cbind(1:num_vertices), FUN=function(x) { mean(get.edge.value(get.edges(g, x, neighborhood = "in"), "age")) }, MARGIN = 1)