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,提取每行中各个数值
结果算出来的值为一个。不知道错在哪里了！求指教。