interindex=function(a,b)
+ {
+ l1=nrow(a);l2=nrow(b);
+ for(i in 1:l1)
+ for(j in 1:l2)
+ if(a[i]==b[j,1])
+ dest_index[i]=j;
+ dest_index
+ }
> anndmg=interindex(a,d)
错误于interindex(a, d) : 找不到这个对象"dest_index"
在R中饿错误如上,不知哪位高手能指点一二,多谢!