if (requireNamespace("MASS", quietly = TRUE)) {
data("Boston", package = "MASS")
x_var <- c("lstat", "rm", "dis", "indus")
y_var <- "medv"
x_train <- as.data.frame(Boston[401:411, x_var])
y_train <- Boston[401:408, y_var]
x_test <- as.data.frame(Boston[1:4, x_var])
# convert to factors for illustational purpose
x_train$rm <- factor(round(x_train$rm))
x_test$rm <- factor(round(x_test$rm), levels = levels(x_train$rm))
dummylist <- make_dummies(traindata = x_train, testdata = x_test)
}
Run the code above in your browser using DataLab