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

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

> 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是什么、、、

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

pls post your both csv files for further investigation.