rm(list = ls()) 
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("dG.gml", format = "gml")
summary(dG)
## IGRAPH 1068e97 D-W- 4 5 -- 
## + attr: id (v/n), label (v/c), sex (v/c), color (v/c), weight (e/n),
## | color (e/c), label (e/c)
plot(dG, edge.arrow.size=.4,vertex.label=V(dG)$label,edge.curved=.1)

EJERCICIO 1:

EliteNet=read.graph("EliteNet.gml", format="gml")
summary(EliteNet)
## IGRAPH 108ab92 U-W- 37 135 -- 
## + attr: id (v/n), label (v/c), multi (v/n), color (v/c), weight (e/n)
plot(EliteNet)

CHALLENGE:

TotalTrade=read.graph("TTnet.gml", format="gml")
summary(TotalTrade)
## IGRAPH 10b77f5 U-W- 216 4927 -- 
## + attr: id (v/n), label (v/c), weight (e/n)
plot(TotalTrade)