Расчет модульности сети в R

Уравнение для сетевой модульности приведено на его странице в Википедии (и в авторитетных книгах). Я хочу увидеть, как это работает в каком-то коде. Я обнаружил, что это возможно с помощью библиотеки модульности для графа , используемого с R ( Фонд R для статистических вычислений ).

Я хочу увидеть пример ниже (или аналогичный), используемый в коде для расчета модульности. Библиотека дает на примере, но это не совсем то, что мне нужно.

Пусть у нас есть набор вершин V = {1, 2, 3, 4, 5} и ребер E = {(1,5), ( 2,3), (2,4), (2,5) (3,5)}, которые образуют неориентированный граф.

Разделите эти вершины на два сообщества: c1 = {2,3} и c2 = {1,4,5}. Необходимо вычислить модульность этих двух сообществ.