# NOT RUN {
# create a reddit actor network graph with comment text as edge attributes
actorNetwork <- redditData %>%
Create("actor", includeTextData = TRUE, writeToFile = TRUE)
# igraph object
# actorNetwork$graph
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab