if (FALSE) {
data <- export_score(keyword = "amazon")
plot_ts(data, type = "obs")
data <- export_voi(keyword = "amazon")
data <- get_abnorm_hist(data, train_win = 12, train_break = 0, type = "obs")
plot_ts(data)
data <- export_doi(keyword = "amazon")
data <- get_abnorm_hist(data, train_win = 12, train_break = 0, measure = "gini")
plot_ts(data, ci = 0.9)
}
Run the code above in your browser using DataLab