# NOT RUN {
library(mlr3)
library(mlr3pipelines)
set.seed(1)
task = tgen("simsurv")$generate(20)
base = lrn("surv.kaplan")$train(task)$predict(task)
pred = lrn("surv.coxph")$train(task)$predict(task)
pod = po("distrcompose", param_vals = list(form = "aft", overwrite = TRUE))
pod$predict(list(base = base, pred = pred))[[1]]
# }
Run the code above in your browser using DataLab