diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2016-02-10 20:19:51 -0500 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2016-02-10 20:19:51 -0500 |
| commit | 6c3d2ff1cb9e7bd3bf1426e1ec4cecd0891ea089 (patch) | |
| tree | 0cf43714e1252ae833e473dc6beed6ddad953663 /R/preprocess.R | |
| parent | added authors and dependencies (diff) | |
| download | sparsestep-6c3d2ff1cb9e7bd3bf1426e1ec4cecd0891ea089.tar.gz sparsestep-6c3d2ff1cb9e7bd3bf1426e1ec4cecd0891ea089.zip | |
bugfixes, documentation improvements, and generic function agreement
Diffstat (limited to 'R/preprocess.R')
| -rw-r--r-- | R/preprocess.R | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/R/preprocess.R b/R/preprocess.R index 253394e..f72c4f4 100644 --- a/R/preprocess.R +++ b/R/preprocess.R @@ -20,7 +20,6 @@ preprocess <- function(x, y, normalize, intercept, XX, Xy, use.XX, use.Xy) normx <- sqrt(drop(one %*% (x^2))) names(normx) <- NULL x <- scale(x, FALSE, normx) - cat("Normalizing in sparsestep\n") } else { normx <- rep(1, nvars) } @@ -32,7 +31,7 @@ preprocess <- function(x, y, normalize, intercept, XX, Xy, use.XX, use.Xy) Xy <- t(x) %*% y } - out <- list(nvars = nvars, normx = normx, a0 = a0, + out <- list(x = x, y = y, nvars = nvars, normx = normx, a0 = a0, XX = XX, Xy = Xy, meanx = meanx) return(out) } |