R/initsvd.R
In ecamenen/r-rgcca: RGCCA and Sparse GCCA for multi-block data analysis
Defines functions
initsvd
initsvd <- function(X) {
n = NROW(X)
p = NCOL(X)
ifelse(n>=p, return(svd(X,nu=0,nv=1)$v)
, return(svd(X,nu=1,nv=0)$u)
)
}
ecamenen/r-rgcca documentation built on Jan. 16, 2020, 12:50 a.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 initsvd
initsvd <- function(X) {
n = NROW(X)
p = NCOL(X)
ifelse(n>=p, return(svd(X,nu=0,nv=1)$v)
, return(svd(X,nu=1,nv=0)$u)
)
}
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.