我想生成一个非奇异数据矩阵，并避免 R 中出现以下错误：
"Error in solve.default(sigma) :
system is computationally singular: reciprocal condition number = 1.3971e-16"
我在 R 中使用 is.singular.matrix 函数。如何在 ifelse 函数中对“丢弃 x”部分进行编码？
n=100
p=50
x<-0.5*matrix(rnorm(n*p),nrow=n,ncol=p)
ifelse(is.singular.matrix(x)=T, discard x, x=x)