# NOT RUN {
library(saotd)
data <- raw_tweets
tidy_data <- Tidy(DataFrame = data)
score_data <- tweet_scores(DataFrameTidy = tidy_data,
HT_Topic = "hashtag")
Corp_Dist <- tweet_corpus_distribution(DataFrameTidyScores = score_data,
binwidth = 1,
color = "black",
fill = "white")
Corp_Dist
# }
Run the code above in your browser using DataLab