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