どのようにしてR行ごとに共分散を見つけることができますか

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)) 

ので、私はあなたのポスト、@Ianにはいくつかのミスがありthis`

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