suppressPackageStartupMessages(library(dplyr))
data_tbl <- data.frame(
A = c(0, 2, 4),
B = c(1, 3, 5),
C = c(2, 4, 6)
)
hai_polynomial_augment(.data = data_tbl, .pred_col = A, .degree = 2, .new_col_prefix = "n")
hai_polynomial_augment(.data = data_tbl, .formula = A ~ .^2, .degree = 1)
Run the code above in your browser using DataLab