gi: General inverse of a matrix
In xzheng-ac/scPADGRN: A PADMM approach for reconstructing DGRN using scRNA-seq

Description Usage Arguments Value Examples

This function returns general inverse of a matrix.

gi(A)

`A`	A is a numberical matrix

aplus is the general inverse of A.

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (A)
{
    svda <- svd(A, nu = nrow(A), nv = ncol(A))
    dplus <- t(A)
    dplus[] <- 0
    diag(dplus) <- svda$d
    dplus[which(as.matrix(dplus) < 0.1^(4))] <- 0
    dplus[which(as.matrix(dplus) != 0)] <- 1/dplus[which(as.matrix(dplus) !=
        0)]
    aplus <- svda$v %*% dplus %*% t(svda$u)
    return(aplus)
  }