This function implements rich club core-periphery algorithm (Ma & Mondragón, 2015) to identify members of the core and periphery in weighted networks
core_periphery_weighted(gs, type)
Arguments
gs: International Trade Network - igraph object. Note for networks not produced using ITNr there needs to be a vertex attribute "name" and edge attribute "weight"
type: directed/undirected
Returns
List - 1.)igraph object with core-periphery results added as a node attribute. 2.) Dataframe of core-periphery results.
Examples
require(igraph)##Create random International Trade Network (igraph object)ITN<-erdos.renyi.game(50,0.05,directed =TRUE)##Add edge weightsE(ITN)$weight<-runif(ecount(ITN),0,1)##Add vertex namesV(ITN)$name<-1:vcount(ITN)##Implement core-periphery algorithmITNcp<-core_periphery_weighted(ITN,"directed")