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

Try the CDM package in your browser

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

CDM documentation built on Aug. 25, 2022, 5:08 p.m.