# NOT RUN {
if (requireNamespace("mlr3pipelines", quietly = TRUE)) {
library(mlr3)
library(mlr3pipelines)
library(survival)
# simple example
pred = PredictionSurv$new(row_ids = 1:10, truth = Surv(1:10, rbinom(10, 1, 0.5)),
response = 1:10)
po = po("trafopred_survregr")
new_pred = po$predict(list(pred = pred))[[1]]
print(new_pred)
}
# }
Run the code above in your browser using DataLab