# NOT RUN {
if (requireNamespace("mlr3pipelines", quietly = TRUE) &&
requireNamespace("rpart", quietly = TRUE)) {
library("mlr3")
library("mlr3pipelines")
task = tsk("rats")
pipe = ppl(
"distrcompositor",
learner = lrn("surv.rpart"),
estimator = "kaplan",
form = "ph"
)
pipe$train(task)
pipe$predict(task)
}
# }
Run the code above in your browser using DataLab