R/make.full.R

Defines functions .make.full

.make.full <-
function(X) {
        svd.X <- svd(X)
        r <- max(which(svd.X$d > 1e-08))
        return(as.matrix(svd.X$u[, 1:r]))
          }
jendelman/GWASpoly documentation built on Oct. 16, 2024, 5:59 a.m.