# ---
# jupyter:
#   jupytext:
#     text_representation:
#       extension: .r
#       format_name: light
#       format_version: '1.5'
#       jupytext_version: 1.14.4
#   kernelspec:
#     display_name: R
#     language: R
#     name: ir
# ---

library(dplyr)
library(CausalImpact)

iris

# +
# Do example from:
# But swap out for SNL date and dogecoin price data
# http://google.github.io/CausalImpact/CausalImpact.html
# motivating example of correlation: https://www.cnbc.com/2021/01/29/bitcoin-spikes-20percent-after-elon-musk-adds-bitcoin-to-his-twitter-bio.html
# motivation: https://www.alexpghayes.com/blog/elon-musk-send-tweet/
# motivation: https://fabiandablander.com/r/Causal-Doge.html

StarcoderdataJupyterScriptsDedupFiltered