ginv: MASS ginv: generalized Moore-Penrose pseudo-inverse

In thartbm/SMCL: Utilities for common tasks in the SensoriMotor Control Lab.

MASS ginv: generalized Moore-Penrose pseudo-inverse

Description

This function is copied from the MASS package (2019-09-15). The only reason to do so is to reduce dependencies.

Usage

ginv(X, tol = .Machine$double.eps * max(dim(X)))

Arguments

X	A matrix.
tol	Tolerance.

Details

Not yet.

Value

Generalized Moore-Penrose pseudo inverse of matrix X.

Examples

library('SMCL')
M <- matrix(c(1:9),3,3)
Mi <- ginv(M)
zapsmall( M %*% Mi %*% M ) == zapsmall( M )
zapsmall( Mi %*% M %*% Mi ) == zapsmall( Mi )
zapsmall( t(M %*% Mi) ) == zapsmall( Mi %*% M )
zapsmall( t(Mi %*% M) ) == zapsmall( M %*% Mi )

thartbm/SMCL documentation built on Oct. 23, 2022, 5:17 a.m.