如何找到 R 中每 n 行的协方差

Question

我有 2 个大数据集，每个数据集有 2000 多个数据，并试图找到每 5 行的协方差。

x=c(1,2,3,4,5)
y=c(6,7,8,9,10)
df=data.frame(x,y)
group=rep(1:length(df),each=2,length=length(df))

我的下一步是什么，这样我才能找到这样的协方差`

cov(x[1:2,],y[1:2,])

和

cov(x[3:4,],y[3:4,])

Answer 1

library(zoo)    
x = c(1,2,3,4,5)
y = c(6,7,8,9,10)
rows = 2
out = rollapply(data.frame(x,y), rows, function(x) cov(x[,1],x[,2]),
                    by.column=FALSE)
out