library(roll) p<-data[ ,c(6,8,10,12)] p=as.matrix(p) roll_cov(p,width=5000,complete_obs = TRUE)
I am getting this NA result us
