R 矩阵积分运算，避免循环

我有一个矩阵（15000*3000），目标是根据原始矩阵有条件地分配新值。例如，我想实施的标准是：

到目前为止，我的代码就是这样设置的

for( i in 1:2000 ) {
    for( j in 1:15000 ) {
        if(DF[j,i]>0 && DF[j-1,i]<0) DF1[j,i]=1 
        else if (DF[j,i]<0 && DF[j-1,i]>0) DF1[j,i]=0
    }
}

for（1:2000中的i）{
对于（1:15000中的j）{
如果（DF[j，i]>0和DF[j-1，i]
DF1[-1，][DF[-1，]>0和DF[-nrow（DF），]<0]什么是
t
和
x
？你打算键入
i
和
j
？那么
DF1[DF[-1，]>0和DF[-nrow（DF），<0]我为我的粗心大意感到抱歉。如果（DF[j]非常感谢！它很有用。把它作为答案贴出来怎么样？如果玛拉不想，那么温妮可以自己回答。。。
DF1[-1,][DF[-1,]>0 & DF[-nrow(DF),] < 0] <- 1
DF1[-1,][DF[-1,]<0 & DF[-nrow(DF),] > 0] <- 0