[igraph] : compare membership

[patricia]

follows function : 

EdgesBetweenClusters <- function(graph, numTrials, numberVertices)

{

  require(igraph);

  communities <- infomap.community(graph, v.weights = NULL, modularity = TRUE, nb.trials = numTrials); 

  

  for(i in 1:numberVertices-1)

  {

    for(j in i+1:numberVertices)

    {

      if(membership(communities)[i] == membership(communities)[j])

      {

        edgesintracluster <- edgesintracluster + 1;

      } 

      else

      {

        edgesintercluster <- edgesintercluster + 1;

      }

    }

  } 

  return(edgesintercluster);

} 

=> attached the following file in xml format

Iris.xml
Description: application/xml