# NOT RUN {
if (requireNamespace("mlr3pipelines", quietly = TRUE)) {
library(mlr3)
library(mlr3pipelines)
task = tsk("rats")
learn = lrn("surv.coxph")$train(task)$predict(task)
poc = po("crankcompose", param_vals = list(method = "sum_haz"))
poc$predict(list(learn))[[1]]
if (requireNamespace("cubature", quietly = TRUE)) {
learn = lrn("surv.coxph")$train(task)$predict(task)
poc = po("crankcompose", param_vals = list(method = "sum_haz"))
poc$predict(list(learn))[[1]]
}
}
# }
Run the code above in your browser using DataLab