1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| fun <- function(df) {
x <- deparse(substitute(df))
y <- scale(df)
env1 <- parent.frame()
assign(x, y, envir = env1)
}
df1 <- data.frame(x = 1:5, y = rnorm(5), z = rpois(5, 1.8))
scale(df1)
x y z
[1,] -1.2649111 0.3613575 1.2278812
[2,] -0.6324555 1.0060798 -0.5262348
[3,] 0.0000000 -1.1344912 0.3508232
[4,] 0.6324555 -0.9948300 -1.4032928
[5,] 1.2649111 0.7618839 0.3508232
attr(,"scaled:center")
x y z
3.000000 0.476867 2.600000
attr(,"scaled:scale")
x y z
1.5811388 0.5066093 1.1401754
fun(df1)
# après transformation :
df1
x y z
[1,] -1.2649111 0.3613575 1.2278812
[2,] -0.6324555 1.0060798 -0.5262348
[3,] 0.0000000 -1.1344912 0.3508232
[4,] 0.6324555 -0.9948300 -1.4032928
[5,] 1.2649111 0.7618839 0.3508232
attr(,"scaled:center")
x y z
3.000000 0.476867 2.600000
attr(,"scaled:scale")
x y z
1.5811388 0.5066093 1.1401754 |
Partager