R/solveneardot.R

Defines functions .solvenear

## robust matrix inversion
.solvenear <- function(x) {
    xinv <- try(solve(x), silent = TRUE)
    if (inherits(xinv, "try-error"))
        xinv <- as.matrix(solve(Matrix::nearPD(x)$mat))
    xinv
}
psolymos/ResourceSelection documentation built on May 25, 2024, 7:04 a.m.