set.seed(1)
train <- data.frame(
y = rnorm(10),
X1 = rnorm(10),
X2 = rnorm(10),
G = factor(sample(c("A", "B"), 10, replace = TRUE))
)
spec <- bigexp_terms(
y ~ X1 + X2 + G,
data = train,
factorial_order = 2,
polynomial_order = 2
)
newdata <- data.frame(
y = rnorm(5),
X1 = rnorm(5),
X2 = rnorm(5),
G = factor(sample(c("A", "B"), 5, replace = TRUE))
)
prep <- bigexp_prepare(spec, newdata)
str(prep$data)
Run the code above in your browser using DataLab