Causal Impact In R