R/solve_add_ridge.R

Defines functions solve_add_ridge

## File Name: solve_add_ridge.R
## File Version: 0.05

solve_add_ridge <- function(A, eps=1E-7)
{
    A0 <- A
    diag(A) <- diag(A0) * ( 1 + eps )
    A2 <- solve(A)
    return(A2)
}
alexanderrobitzsch/CDM documentation built on July 3, 2024, 7:42 p.m.