报错如下：
Error in xj : only 0's may be mixed with negative subscripts
虽然在网上搜到了，说是要加括号。。但是我实在是不知道怎么回事。。


代码如下
data <- read.csv("1.csv")
data <- transform(data, dcg = (Clsprc-Opnprc)/Opnprc)
data["Action"] <- NA
X <-c(1:nrow(data))
data <- cbind(X, data )
#上面是对观察值编码
BP_1 <- subset(data, dcg <= 0 & dcg >= -0.03)

b <- c(BP_1$X-1)
Testb = data[b, "dcg"] >= 0.05
BP_1 <- subset(BP_1, Testb == "TRUE")
#这三行没有报错。。想要表述的就是BP_1里的观察值在原先的data里的上一行的值大于0.05，也成功筛选了数据
c <- c(BP_1$X-2)#这一行没报错
Testc = data[c, "dcg"] >= 0.05
结果这里就报错了。。
Error in xj : only 0's may be mixed with negative subscripts
感到巨郁闷。。因为感觉明明和上面没什么不一样。。为什么1改成2会错。。
求大神指点