if (requireNamespace("car", quietly = TRUE)) {
x <- rnorm(100, mean = 10, sd = 2)
y <- rexp(100, rate = 0.2)
df <- data.frame(x = x, y = y)
result <- power_transform(df, family = "bcPower", type = "optimal")
head(result$data)
result$lambda
}
Run the code above in your browser using DataLab