if (FALSE) {
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