diff options
| -rw-r--r-- | R/preprocess.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/R/preprocess.R b/R/preprocess.R index f72c4f4..2ac28f0 100644 --- a/R/preprocess.R +++ b/R/preprocess.R @@ -18,6 +18,7 @@ preprocess <- function(x, y, normalize, intercept, XX, Xy, use.XX, use.Xy) if (normalize) { normx <- sqrt(drop(one %*% (x^2))) + normx <- sqrt(nobs) * normx names(normx) <- NULL x <- scale(x, FALSE, normx) } else { |