Tarea 3 - parte 2

3. Exportar the network: **nx.write_gml(EliteNet, os.path.join(“graphdata”,“EliteNet.gml”))**
  1. Abra la red exportada en R y Gephi. Traza las gráficas.
rm(list = ls()) # clear memory
library(igraph)
## 
## Attaching package: 'igraph'
## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum
## The following object is masked from 'package:base':
## 
##     union
dG=read.graph("EliteNet.gml", format = "gml")
summary(dG)
## IGRAPH f0a97d6 U--- 37 135 -- 
## + attr: id (v/n), label (v/c), multi (v/n), color (v/c), size (v/n),
## | width (e/n)
plot(dG, edge.arrow.size=.4,vertex.label=V(dG)$label,edge.curved=.1)