if (FALSE) {
data <- export_score(keyword = "amazon")
plot_bar(data, type = "obs")
data <- export_score(keyword = "amazon")
data <- get_abnorm_hist(data, train_win = 12, train_break = 0, type = "obs")
plot_bar(data)
}
Run the code above in your browser using DataLab