Как избежать Singular Matrix с использованием R?

Question

Я хочу сгенерировать неособую матрицу данных и избежать следующей ошибки в R:

"Error in solve.default(sigma) : 
  system is computationally singular: reciprocal condition number = 1.3971e-16"

Я использую функцию is.singular.matrix в R. Как кодировать «discard x»участие в функции ifelse?

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)