# NOT RUN {
# create a twitter semantic network graph removing the hashtag '#auspol' and using the
# top 2% frequently occurring words and 10% most frequently occurring hashtags as nodes
semanticNetwork <- twitterData %>%
Create("semantic", removeTermsOrHashtags = c("#auspol"),
termFreq = 2, hashtagFreq = 10, verbose = TRUE)
# network
# semanticNetwork$nodes
# semanticNetwork$edges
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab