如何获得两个滞后变量之间的相关性

How to get correlations between two variables with lags

我想检查 "birds" 和 "wolfs" 在不同 lags.Getting 之间是否存在相关性,相关值很简单,但我如何解决滞后问题(我需要检查 1:4 滞后的相关值)?我寻找的输出是包含滞后值和相关相关值的数据 table。

df <- read.table(text = " day birds    wolfs     
                           0   2       21           
                           1   8         4  
                           2   2         5 
                           3   2         4 
                           4   3         6
                           5   1         12  
                           6   7         10 
                           7   1         9
                           8   2         12 header = TRUE)

输出(非真实结果): 滞后 CorValue

0     0.9
1     0.8
2     0.7
3     0.9

如果你这样做:

corLag<-ccf(df$birds,df$wolfs,lag.max=max(df$day))

它会 return 这个 :

序列“X”的自相关,滞后

-8     -7     -6     -5     -4     -3     -2     -1      0      1      2      3      4      5      6     7      8  
-0.028  0.123 -0.045 -0.019  0.145 -0.176 -0.082 -0.126 -0.296  0.757 -0.134 -0.180  0.070 -0.272  0.549 -0.170 -0.117 

第一行是滞后,第二行是相关值。你可以检查 cor(df$birds,df$wolfs) 确实等于 -0.296