Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- degtable = "
- library(igraph)
- g <- erdos.renyi.game(100, .05, directed = TRUE)
- degdat <- data.frame(indeg = degree(g, mode=\"in\"), outdeg = degree(g, mode=\"out\"))
- write.table(degdat, \"degdat.tsv\", col.names = TRUE, row.names = FALSE, sep=\"\t\")
- degdat
- "
- outfile = open("degreetable.R", "w+")
- write(outfile, degtable)
- close(outfile)
- run(`Rscript degreetable.R`)
Advertisement
Add Comment
Please, Sign In to add comment