require(igraph)
##Create random network (igraph object)
gs<-erdos.renyi.game(30,0.05,directed = TRUE)
##Add vertex names
V(gs)$name<-1:vcount(gs)
## Add an attribute
V(gs)$letters<- rep(LETTERS[1:5],6)
##Calculate the Individual E-I Results
EI_IND_DATAFRAME<-ei_ind(gs,"letters")
Run the code above in your browser using DataLab