if (requireNamespace("MASS", quietly = TRUE) & requireNamespace("party", quietly = TRUE)) {
m <- 10
n <- 40
n_samples <- 50
mu <- rep(1, m)
cov_mat <- cov(matrix(rnorm(n * m), n, m))
x_train <- data.table::data.table(MASS::mvrnorm(n, mu, cov_mat))
given_ind <- c(4, 7)
mincriterion <- 0.95
minsplit <- 20
minbucket <- 7
sample <- TRUE
create_ctree(
given_ind = given_ind, x_train = x_train,
mincriterion = mincriterion, minsplit = minsplit,
minbucket = minbucket, use_partykit = "on_error"
)
}
Run the code above in your browser using DataLab