十里春风 发表于 2015-8-8 17:42 
厉害,方法非常巧妙。非常感谢。不过,两个程序都没有看懂,请再细细指教一下。第一个程序,function(i) A[i,b[i,]]<<-1, 特别是这个<<-,期初我以为你打错了,应该是<-,我用了<-运行完之后居然没有任何变化,又用了<<-,果然实现了,请问这两个赋值号之间的区别是什么?如何使用?
第二个程序,这里A[t(b)]<-1为什么要给b转置,我尝试了不转置b,显示错误,下表出界。A[]这个括号内,如果是个矩阵,它是怎么引用的?为什么不转置会出界?
谢谢了,我是菜鸟一个,希望指点一下。