R/myinv.R

In QRFCCA: Quadratically Regularized Functional Canonical Correlation Analysis

Defines functions myinv

Documented in myinv

myinv <-
function(A){
  A_svd<-fast.svd(A)
  if(length(A_svd$d)==1){
    A_inv<-A_svd$v%*%as.matrix(1/A_svd$d)%*%t(A_svd$u)
  }else{
    A_inv<-A_svd$v%*%diag(1/A_svd$d)%*%t(A_svd$u)
  }
  return(A_inv)
}

Try the QRFCCA package in your browser