R语言，if语句，缺少true or false

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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，这个判断怎么改才能正确，错误是为啥。。。求指点

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：LSE R语言 Rue TRU For false

先不循环，手动一句一句运行看哪个变量值出了问题

万人往LVR 发表于 2015-8-4 15:14
先不循环，手动一句一句运行看哪个变量值出了问题

试过了。。。都没问题啊。。。

隔壁的流氓 发表于 2015-8-4 15:18
试过了。。。都没问题啊。。。

> a<-read.csv("c:/322.csv")
> b<-read.csv("c:/guifanjuzhen.csv")
> d<-0
> for(x in 2:7){
+ d<-d+a[1,x]*b[x-1,5]}
> print(d)
[1] NA
> a[1,]
  pretvsampleid    tvtype onlineclick searchrate    playloc    tvrate       fans
1             1 0.2290848  0.00230131 0.03663773 0.05524986 0.4009202 0.09569804
> b[,5]
[1] -0.007301741  0.045851064 -0.999659574  0.000000000  0.017263056
> a[1,2]
[1] 0.2290848
> b[1,5]
[1] -0.007301741
> d<-a[1,2]*b[1,5]+a[1,3]*b[2,5]+a[1,4]*b[3,5]+a[1,5]*b[4,5]+a[1,6]*b[5,5]+a[1,7]*b[6,5]
> x
[1] 7
> d
[1] NA
>



请帮忙看一下。。。NA是什么、、、

万人往LVR 发表于 2015-8-4 15:14
先不循环，手动一句一句运行看哪个变量值出了问题

找到了，b（6,5）出错了。。。不知为什么读不出数据

pls post your both csv files for further investigation.

waterhorse 发表于 2015-8-6 01:17
pls post your both csv files for further investigation.