set.seed(1)
df2 <- data.frame(
y1 = rnorm(10),
y2 = rnorm(10),
X1 = rnorm(10),
X2 = rnorm(10)
)
spec2 <- bigexp_terms(
y1 ~ X1 + X2,
data = df2,
factorial_order = 2,
polynomial_order = 2
)
f2 <- bigexp_formula(spec2, "y2")
f2
Run the code above in your browser using DataLab