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 July 8, 2023, 7:25 p.m.