代码如下

for (i in (K-2)){

AR=array(NA,c(ewin,length(PAD),(K-2)))

for (j in length(PAD)){
  y=ri[(PAD[j]-estw-gap):(PAD[j]-gap),i]
  x=rm[(PAD[j]-estw-gap):(PAD[j]-gap)]
  fit=lm(y~x)
  ahat=coef(fit)[1]
  beta=coef(fit)[2]
  yhat=ahat+beta*rm
  ARaux=ri[,i]-yhat
  AR[,j]=ARaux[(PAD[j]-1):(PAD[j]+ewin)]
}

ARbar=apply(AR,1,mean,na.rm=TRUE)

}


报错的是这一行  AR[,j]=ARaux[(PAD[j]-1):(PAD[j]+ewin)]，然后错误指令是Error in AR[, j] <- ARaux[(PAD[j] - 1):(PAD[j] + ewin)] : incorrect number of subscripts on matrix

求助各位大神，这个应该怎么改正啊