R寻找网络的已连接三元组

Question

我有一个网络，如附件中的图像。我正在尝试手动计算全局传递性/聚类系数。根据方程式：

  

传递率= 3 *闭合三角形/相连的三元组（   由两个边连接的三个顶点）

在这种情况下，存在3 * 10 = 30个可能的三角形，即等式中的分子，通过使用R中的igraph，该网络的全局传递性为0.2857143。插入方程式，我应该有105个连接的三元组，从三角形中减去30个，剩下的75个三元组不是闭合三角形。

我的问题是，有没有办法通过R在网络上标记75个未封闭的三角形？很难手动识别它们。

我使用了Moreno网络数据集。您可以使用install_github（“ DougLuke / UserNetR”）进行安装，然后调用data（“ Moreno”）