[igraph] R igraph - conditional incident edges removing

[Ahmed Farag]

Dear all,

I have weighted graph and I need to delete every edge has weight greater
than avg of incident edges weights

example:-


​

In the previous graph, Edges [11-12, 5-9, 8-9] are incident edges to edge
[9-12] and the edge 9-12 with weight = 7 should be removed because the avg
incident edges weight = (0+3+1)/3 = 1 and so on for other edges.

Any Idea to do that?

Thanks in advance