x0 <- exp(stats::rnorm(1000))
transformer <- find_transformation_parameters(
x = x0,
method = "box_cox")
y <- power_transform(
x = x0,
transformer = transformer)
x1 <- revert_power_transform(
y = y,
transformer = transformer)
Run the code above in your browser using DataLab