library(recipes)
rec <- recipe(~ ., data = as.data.frame(iris))
orq_trans <- step_orderNorm(rec, all_numeric())
orq_estimates <- prep(orq_trans, training = as.data.frame(iris))
orq_data <- bake(orq_estimates, as.data.frame(iris))
plot(density(iris[, "Petal.Length"]), main = "before")
plot(density(orq_data$Petal.Length), main = "after")
tidy(orq_trans, number = 1)
tidy(orq_estimates, number = 1)
Run the code above in your browser using DataLab