Creates an activity network from collected youtube video comment threads. Nodes are top-level
comments, reply comments and videos. Edges are directed between the nodes and represent commenting activity.
# NOT RUN {# create a youtube activity network graphactivityNetwork <- youtubeData %>% Create("activity")
# network# activityNetwork$nodes# activityNetwork$edges# }# NOT RUN {# }