durmod (version 1.1-4)

geninv: Moore-Penrose generalized inverse

Description

Moore-Penrose generalized inverse

Usage

geninv(X, tol = .Machine$double.eps^(2/3))

Arguments

X

matrix

tol

tolerance for determining bad entries

Value

A matrix of the same dimension as X is returned, the Moore-Penrose generalized inverse.

Examples

# NOT RUN {
# create a positive definite 5x5 matrix
x <- crossprod(matrix(rnorm(25),5))
# make it singular
x[,2] <- x[,3]+x[,5]
geninv(x)
# }