別のtimeseriesデータセットの相関

Question

2つの別々のtimeseriesデータセットのy変数を相関させたいと思います。例えば：このエレガントな解決策上の任意のポインタに感謝

d1 = data.frame(x = seq(as.Date('2014-01-01'), as.Date('2016-01-01'), length.out = 100), y = sort(rnorm(100, mean=50, sd=10))) 
d2 = data.frame(x = seq(as.Date('2014-02-01'), as.Date('2015-12-01'), length.out = 200), y = sort(rnorm(200, mean=48, sd=12))) 
plot(d1, type='l') 
lines(d2, col='red') 

。

Answer 1

私は、これはあなたがSO周りしばらくしてきた

d1b = akima::aspline(d1, xout = d2$x) 
summary(lm(d1b$y ~ d2$y))$r.squared 
#> [1] 0.9873564 
plot(d1b$y, d2$y, pch=16)