R/inverse.R
In songxiaoyu/iProFun: An integrative analysis tool to screen for Proteogenomic Functional traits perturbed by DNA alterations
Defines functions
inverse
inverse <- function(X) {
if (!is.matrix(X))
X <- matrix(X, nrow = sqrt(length(X)))
ss <- svd(X)
Xinv <- ss$u %*% diag(1/ss$d, nrow = nrow(X), ncol = nrow(X)) %*% t(ss$v)
return(Xinv)
}
songxiaoyu/iProFun documentation built on Dec. 8, 2022, 3:54 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions inverse
inverse <- function(X) {
if (!is.matrix(X))
X <- matrix(X, nrow = sqrt(length(X)))
ss <- svd(X)
Xinv <- ss$u %*% diag(1/ss$d, nrow = nrow(X), ncol = nrow(X)) %*% t(ss$v)
return(Xinv)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.