R/miqr.solve.R

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()

Try the ACNE package in your browser

Any scripts or data that you put into this service are public.

ACNE documentation built on May 2, 2019, 1:09 p.m.