我有这个二元martix
a0=rep(1,40)
a=rep(0:1,20)
b=c(rep(1,20),rep(0,20))
c0=c(rep(0,12),rep(1,28))
c1=c(rep(1,5),rep(0,35))
c2=c(rep(1,8),rep(0,32))
c3=c(rep(1,23),rep(0,17))
da=matrix(cbind(a0,a,b,c0,c1,c2,c3),nrow=40,ncol=7)
我需要将这个矩阵子集化为具有相同列数和不同行数的两个子集（矩阵）（比如85％对15％）但是在修剪过程中你可以记住2个子集没有有共线性。
我遇到的问题。 当我使用
进行子集化时ind <- sample(1:nrow(da), trunc(85*nrow(da)/100))
trda <- da[ind,]
teda <- da[-ind,]
我得到其中一个子集不是满级。
有人可以向我解释如何在不获得共线性的情况下对它们进行子集化吗？这只是一个例子。我正在处理大矩阵
谢谢