# NOT RUN {
library(saotd)
data <- raw_tweets
TD_Bigram <- bigram(DataFrame = data)
TD_Bigram_Network <- bigram_network(BiGramDataFrame = TD_Bigram,
number = 300,
layout = "fr",
edge_color = "royalblue",
node_color = "black",
node_size = 3,
set_seed = 1234)
TD_Bigram_Network
# }
Run the code above in your browser using DataLab