在R中替换“For”Loop

Question

我知道for循环不是在R中使用的最好的东西。请建议下面代码段的替代方案：

mat是一个二维矩阵 pos.scores和neg.scores是1-D矩阵

我正在尝试使用一些计算（if-else语句）填充pos.scores和neg.scores矩阵。

for (i in 1:(ncol(mat)-1)) 
{
pos.scores[1,i]<-ifelse(sum(mat[,i]>0 & mat[,ncol(mat)]=="Positive")==0,0.000001,sum(mat[,i]>0 & mat[,ncol(mat)]=="Positive"))/nrow(mat)    
neg.scores[1,i]<-ifelse(sum(mat[,i]>0 & mat[,ncol(mat)]=="Negative")==0,0.000001,sum(mat[,i]>0 & mat[,ncol(mat)]=="Negative"))/nrow(mat)        
}