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