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/detect documentation built on March 16, 2023, 4:28 p.m.