R语言，列表每行条件求和？？

Question

11列，2048行。如果每行的数据均大于1，则和=此行中各个值相加-此行的相加个数；如果有小于1的情况，则和=此行大于1的各个值相加-大于1的个数+小于1的各个值相乘的积。
代码如下：for(i in 1:nrow(w1)){
b<-w1[i,]
}
e<-b[b>1]
f<-b[b<1]
w1["risk score"]<-sum(e)-length(e)+prod(f)

#w1为的名称列表
b,提取每行中各个数值

结果算出来的值为一个。
不知道错在哪里了！
求指教。