# \donttest{
library(rpart)
library(partykit)
library(ggparty)
library(dplyr)
library(seriation)
data_all <- add_data_type(
data_train = train_covid, data_test = test_covid
)
data <- prepare_features(
data_all,
target_lab = "Outcome",
task = "classification"
)
train_tree <- train_tree(
data_train = train_covid,
target_lab = "Outcome", model = "rpart"
)
fit <- train_tree$fit
var_imp <- train_tree$var_imp
tree_res <- compute_tree(
fit,
model = "rpart", show = "test",
data = data, target_lab = "Outcome",
task = "classification"
)
prepare_tree(tree_res, model = "rpart")
# }
Run the code above in your browser using DataLab