R/miqr.solve.R

In HenrikBengtsson/ACNE: Affymetrix SNP Probe-Summarization using Non-Negative Matrix Factorization

Defines functions miqr.solve

Documented in miqr.solve

miqr.solve <- function(a, b) {
  x <- tryCatch({
    qr.solve(a, b);
  }, error = function(e) {
    e;
  }, finally = "");

  if (!is.matrix(x)) {
    x <- ginv(a) %*% b;
  }

  x;
} # miqr.solve()