edgelist1 <- data.frame(expand.grid(letters[1:2], letters[1:2]),
uniform=runif(4))
edgelist2 <- data.frame(v1=c("a", "a"), v2=c("a", "b"), manual=c(.3, .5))
MergeEdgelists(edgelist1, edgelist2)
Run the code above in your browser using DataLab