R/doSVD.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"doSVD" <-
function (x, numleft, numright)
#doSVD
{
	svdx<-La.svd(as.matrix(x),nu=numleft,nv=numright)
	list(values=svdx$d, left=as.matrix(svdx$u),
             right=as.matrix(svdx$vt))

}