search for: svdx

...cex=.6) { stopifnot(is.matrix(x) || is.data.frame(x)) n.values = (lambda.end - lambda.ini + 1) if(n.values < 2 || n.values > 3) stop('Please, check the parameters: lambda.ini and lambda.end!') x = as.matrix(x) x = scale(x, center=center, scale=scale) svdx = svd(x) s2 = diag(sqrt(svdx$d[lambda.ini:lambda.end])) # 'prcomp.default' of 'stats' package (and 'pca' of 'pcurve') is like the below! #s2 = diag(svdx$d[lambda.ini:lambda.end]) switch(match.arg(weight), equal = { g = svdx$u[,lambda.ini:lam...

Hi, I am looking for C/C++ codes for computing generalized inverse of a matrix. Can anyone help me in this regard? Thanks, Mahbub.

...third option based on ## eigen(). That is numerically inferior to svd when the latter ## works. ## -Art Owen, October 2007 ## svdwrapper = function( x, nu, nv, verbose=T ){ # Caution: I have not tested this much. # It's here as an example for an R-Help discussion. gotit = F try( {svdx = svd(x,nu,nv); gotit=T}, silent = !verbose ) if( gotit )return(svdx) try( {svdtx = svd(t(x),nv,nu); gotit=T}, silent = !verbose ) if( !gotit )stop("svd(x) and svd(t(x)) both failed.") if( verbose )print("svd(x) failed but svd(t(x)) worked.") temp = svdtx$u svdtx$...

Fedora 9 R 2.7.1 I tried to install R on my Linux system using install.packages("Rcmdr", dependencies=TRUE). I received many, many, many error messages. I hope someone can suggest a fix. The output from warnings() is listed below. A more detailed list of errors from one of the failed installations is listed below the warnings: > warnings() Warning messages: 1: In