View source: R/gaussian-elimination.R
Ginv | R Documentation |
Ginv
returns an arbitrary generalized inverse of the matrix A
, using gaussianElimination
.
Ginv(A, tol = sqrt(.Machine$double.eps), verbose = FALSE, fractions = FALSE)
A |
numerical matrix |
tol |
tolerance for checking for 0 pivot |
verbose |
logical; if |
fractions |
logical; if |
A generalized inverse is a matrix \mathbf{A}^-
satisfying \mathbf{A A^- A} = \mathbf{A}
.
The purpose of this function is mainly to show how the generalized inverse can be computed using Gaussian elimination.
the generalized inverse of A
, expressed as fractions if fractions=TRUE
, or rounded
John Fox
ginv
for a more generally usable function
A <- matrix(c(1,2,3,4,5,6,7,8,10), 3, 3) # a nonsingular matrix
A
Ginv(A, fractions=TRUE) # a generalized inverse of A = inverse of A
round(Ginv(A) %*% A, 6) # check
B <- matrix(1:9, 3, 3) # a singular matrix
B
Ginv(B, fractions=TRUE) # a generalized inverse of B
B %*% Ginv(B) %*% B # check
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.