> fbe <- c(0.10432,0,0,0.10432,0.10432,0.10432,0.10432,0.10432,0.10432,0.10432)
> fbe
[1] 0.10432 0.00000 0.00000 0.10432 0.10432 0.10432 0.10432 0.10432 0.10432 0.10432

i still get zeros back.

我这边还是很奇怪，检查了前面的数，其中的bx6=0, 显示为 null, 然后再输入一次 fbe，就还是把这个bx6给过滤掉了，又只剩下8个数在fbe里头了>.< 肿么回事呢。。。

b1=a1-fae
b2=fb*fr
bx1=if(b1[1]>b2)b2;if(b1[1]<b2&b1[1]>=0)b1[1];if(b1[1]<0)0
bx2=if(b1[2]>b2)b2;if(b1[2]<b2&b1[2]>=0)b1[2];if(b1[2]<0)0
bx3=if(b1[3]>b2)b2;if(b1[3]<b2&b1[3]>=0)b1[3];if(b1[3]<0)0
bx4=if(b1[4]>b2)b2;if(b1[4]<b2&b1[4]>=0)b1[4];if(b1[4]<0)0
bx5=if(b1[5]>b2)b2;if(b1[5]<b2&b1[5]>=0)b1[5];if(b1[5]<0)0
bx6=if(b1[6]>b2)b2;if(b1[6]<b2&b1[6]>=0)b1[6];if(b1[6]<0)0
bx7=if(b1[7]>b2)b2;if(b1[7]<b2&b1[7]>=0)b1[7];if(b1[7]<0)0
bx8=if(b1[8]>b2)b2;if(b1[8]<b2&b1[8]>=0)b1[8];if(b1[8]<0)0
bx9=if(b1[9]>b2)b2;if(b1[9]<b2&b1[9]>=0)b1[9];if(b1[9]<0)0
bx10=if(b1[10]>b2)b2;if(b1[10]<b2&b1[10]>=0)b1[10];if(b1[10]<0)0
fbe<-c(bx1,bx2,bx3,bx4,bx5,bx6,bx7,bx8,bx9,bx10)

这是前面的计算过程，后来我一一检查了一下，除了bx6=null, bx10=0.06572之外，其它的数全部都是0.10432, 可不知为何，在最后一步，合成 fbe 的时候，却把 bx6 和 bx10都给去掉了。。只剩下了0.10432的数值。。真不知道这是怎么回事。。

> bx10=if(b1[10]>b2)b2;if(b1[10]<b2&b1[10]>=0)b1[10];if(b1[10]<0)0
[1] 0.06572
> bx10
NULL
如上面这个结果所示，明明 bx10 计算出来的结果是0.06572， 可是在输入 bx10后，出来的结果却是 “NULL” 我想问题主要出在这里。就是不明白为什么会这样。。

虽然看不到你的数据，但我猜你的赋值有问题，试试这样改