>  R=matrix(0,N,T-1)
>  for(i in 1:N)
+  {
+    for(j in 1:T-1)
+    {
+      for(s in 1:T-j)
+      {
+        
+       R[i,j]=R[i,j]+(Y[i,s]-B1[i])*(Y[i,s+j]-B1[i])
+     
+      }
+    }
+  }
Error in R[i, j] <- R[i, j] + (Y[i, s] - B1[i]) * (Y[i, s + j] - B1[i]) :
  更换参数长度为零
这个怎么改
谢谢，各位大佬