# Load the mtcars dataset
data(mtcars)
# Univariate transformations (AIC-based, backward stepwise)
model_uni <- splitwise(
mpg ~ .,
data = mtcars,
transformation_mode = "univariate",
direction = "backward"
)
summary(model_uni)
# Iterative approach (BIC-based, forward stepwise)
# Note: typically set k = log(nrow(mtcars)) for BIC in step().
model_iter <- splitwise(
mpg ~ .,
data = mtcars,
transformation_mode = "iterative",
direction = "forward",
criterion = "BIC",
k = log(nrow(mtcars))
)
summary(model_iter)
Run the code above in your browser using DataLab