#################################################################################
#http://www.mail-archive.com/rcpp-devel@lists.r-forge.r-project.org/msg01513.html
#################################################################################
#http://www.mail-archive.com/rcpp-devel@lists.r-forge.r-project.org/msg01513.html
-boostana<-function (tab, ndim = 2, libsvdc = FALSE, libsvdc.path=NULL)
+boostana<-function (tab, ndim = 2, svd.method = 'svdR', libsvdc.path=NULL)
print('do svd')
sv <- my.svd(z, qdim, qdim, libsvdc.path=libsvdc.path, sparse.path=tmpmat)
#END NEW SVD
print('do svd')
sv <- my.svd(z, qdim, qdim, libsvdc.path=libsvdc.path, sparse.path=tmpmat)
#END NEW SVD
}
sigmavec <- (sv$d)[2:qdim]
x <- ((sv$u)/sqrt(r))[, -1]
}
sigmavec <- (sv$d)[2:qdim]
x <- ((sv$u)/sqrt(r))[, -1]