# 2D example
n <- 10L
X <- cbind(rnorm(n, mean = 0, sd = 3),
rnorm(n, mean = 1, sd = 2))
Y <- cbind(rnorm(n, mean = 1, sd = 2),
rnorm(n, mean = 0, sd = 2))
to_uniform_scale(X, Y)
Run the code above in your browser using DataLab