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中饿错误如上，不知哪位高手能指点一二，多谢！