Correlation vs Causation

Andrii Baryshpolets

January 2017

Figures

Example 1

Spirious correlations

Example 2

\(x_t = x_t-1 + \varepsilon_x,t\) \(y_t = y_t-1 + \varepsilon_y,t\) where \(\varepsilon_x,t ~ N(0, \varsigma^2_x), \varepsilon_y,t~ N(0, \varsigma^2_y)\)

Example 2

library(zoo)

set.seed(42)
n <- 500
x <- as.ts( cumsum( rnorm(n, mean=0, sd=1) ) )
y <- as.ts( cumsum( rnorm(n, mean=0, sd=1) ) )

Example 2

Correlation coefficient between yt and xt is \(\varrho_y,x\) = 0.6746103

Example 2