给各位拜年了，小弟又有问题，请教能否不用循环实现？求优化的R代码。

yukuang

算法：欲生成一个10行10列的二维表（矩阵）T，T中每个元素均为0或1。首先随机生成最后一列，即第10列。然后要求自第1列至9列，分别以递减的比率与最后一列相同。如第1列有90%的元素与最后一列相同，第9列有80%的元素与最后一列相同，依次类推，第9列有10%的元素与最后一列相同。

请教：1、生成的二维表可能会很大，如10万行，10万列，甚至更大，至少保证10万*10万时不出现内存不够的现象。2、递减可以匀速递减，也可以非匀速递减。3、第1列与最后一列的相似程度（上例为90%），以及倒数第2列与最后一列的相似程度（上例为10%）可调。

多谢各位好人了！