# NOT RUN {
predictors <- mtcars[, -1]
# Data frame interface
mod <- apd_pca(predictors)
# Formula interface
mod2 <- apd_pca(mpg ~ ., mtcars)
# Recipes interface
library(recipes)
rec <- recipe(mpg ~ ., mtcars)
rec <- step_log(rec, disp)
mod3 <- apd_pca(rec, mtcars)
# }
Run the code above in your browser using DataLab