R程序构建矩阵时报错，求解答

R代码里有一个命令出错 不知道什么原因 请各位大神帮忙解答一下。
code是：
>num_low <- read.csv("D:/data/regime_low.csv",header=F)
>Smatrix_low <- array(0,dim=c(lag_aic,nc,nrow(num_low)))
>for (i in (1:nrow(num_low))) {
  Smatrix_low[,,i]=data[(num_low[i,]-lag_aic):(num_low[i,]-1),]
}

R 反馈的错误是：
Error in (num_low[i, ] - lag_aic):(num_low[i, ] - 1) : NA/NaN参数
此外: Warning messages:
1: In (num_low[i, ] - lag_aic):(num_low[i, ] - 1) :
  numerical expression has 4 elements: only the first used
2: In (num_low[i, ] - lag_aic):(num_low[i, ] - 1) :
  numerical expression has 4 elements: only the first used

求各位大神指点一二。在线等

1. Smatrix_low[,,i]=data[(num_low[i,]-lag_aic):(num_low[i,]-1),]

复制代码

这一句好像有点问题，因为data里(num_low[i,]-lag_aic):(num_low[i,]-1)应该是很多个数，然后你这是提取的data的行，从error提示来看，这个可能是有4行的，而Smatrix_low[，，i]只能赋值一行或者一列，导致赋值出错，你再检查检查 。

jiangbeilu 发表于 2017-6-18 21:20
这一句好像有点问题，因为data里(num_low-lag_aic):(num_low-1)应该是很多个数，然后你这是提取的data的行 ...

这是参考别人的代码运行的。我的是4个变量 每组130个数据。不知道怎么弄，能加好友向你具体请教下吗？