set.seed(1)
df5 <- data.frame(
y = rnorm(20),
X1 = rnorm(20),
X2 = rnorm(20)
)
tr <- bigexp_train(
y ~ X1 + X2,
data = df5,
factorial_order = 2,
polynomial_order = 3
)
## Prepared training data and expanded formula:
str(tr$data)
tr$formula
## Example: fit a model using the expanded formula
fit_lm <- lm(tr$formula, data = tr$data)
summary(fit_lm)
Run the code above in your browser using DataLab