scale是剪掉平均值再除以标准差

你得到拟合数据之后，乘以标准差再加上平均值就可以了

set.seed(1)
x <- runif(20)
y <- 2 * x + 0.1 * rnorm(20)
plot(x, y)

dat <- data.frame(y, x)
scaled.dat <- scale(dat)
scaled.dat <- as.data.frame(scaled.dat)

scaled.fit <- lm(y ~ x, data = scaled.dat)

(scaled.fit$fitted.values * sd(y)) + mean(y) # 先scale再变回去

fit <- lm(y ~ x)
fit$fitted.values  # 不用scale

两个结果是一样的

请问scale函数默认是对行归一化处理，还是对列归一化处理？