# NOT RUN {
# class igraph (igraph, igraphdata packages)
library(igraph)
data(blood, package = "geomnet")
blood.igraph <- graph_from_data_frame(d = blood$edges,
directed = TRUE, vertices = unique(blood$vertices[, 1:3]))
fortify(blood.igraph)
# }
Run the code above in your browser using DataLab