if (requireNamespace("MASS", quietly = TRUE)) {
# Load example data
data("Boston", package = "MASS")
# Split data into test- and training data
x_train <- data.table::as.data.table(head(Boston))
x_train[, rad := as.factor(rad)]
model <- lm(medv ~ lstat + rm + rad + indus, data = x_train)
get_model_specs(model)
}
Run the code above in your browser using DataLab