В настоящее время выполняется код, который находит среднее значение указанного атрибута c vertex
среди соседей указанной вершины c:
V(net)$Deg1F <- sapply(V(net), function(x) {
NeighborList = ego(net, order = 1, x) ; NeighborList <- lapply(NeighborList, function(y) y[-1])
ifelse(length(NeighborList) > 0,
mean(as.numeric(as.character(NeighborList[[1]]$HAFreq))),0) } )
В настоящее время я использую ego()
Функция и удалить первый элемент, чтобы избавиться от соседа порядка 0 (т.е. себя). Однако мне было интересно, есть ли более простой способ удалить соседей определенных порядков. Так что я могу просто взять список всех соседей порядка 3 (друзья друзей друзей).
Заранее спасибо!