a<-read.csv("c:/322.csv")
> b<-read.csv("c:/guifanjuzhen.csv")
> for(i in 1:6028){
+ d<-0
+ for(x in 2:7){
+ d<-d+a[i,x]*b[x-1,5]}
+ d<-1/(1+2.71828^-d)
+ e<-0
+ e=-d*(1-d)*(0-d)
+ if(e<0.005){
+ b[1,5]=b[1,5]+0.2*e*d
+ b[2,5]=b[2,5]+0.2*e*d
+ b[3,5]=b[3,5]+0.2*e*d
+ b[4,5]=b[4,5]+0.2*e*d
+ b[6,5]=b[6,5]+0.2*e*d}}
Error in if (e < 0.005) { : missing value where TRUE/FALSE needed
  a,b是纯数字的csv，这个判断怎么改才能正确，错误是为啥。。。求指点