我有这个二进制矩阵
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%)的两个子集(矩阵),但在修剪过程中,您可以记住这两个子集没有共线性。
我遇到的问题。当我使用 da 子集时
ind <- sample(1:nrow(da), trunc(85*nrow(da)/100))
trda <- da[ind,]
teda <- da[-ind,]
我得到这些子集之一不是全等级。
有人可以向我解释如何在不产生共线性的情况下对它们进行子集化吗?这只是一个例子。我正在处理大矩阵
谢谢