Data Science, Statistics, Analytics, Experiment, Causality.
in, garbage out. Here’s an illustrative example: library(CausalImpact) set.seed(1) x <- cumsum(rnorm(100, 0, 1)) y <- cumsum(rnorm(100, 0, 1)) dat <- zoo(cbind(y, x)) plot(dat, main = "Two random walks") impact <- CausalImpact( data = dat, pre.period = c(1,80), post.period = c(81, 100) )