library(randomSurvivalForest)
data(veteran, package = "randomSurvivalForest")
veteran.out <- rsf(Survrsf(time, status)~.,
data = veteran,
ntree = 5,
forest = TRUE)
veteran.forest <- veteran.out$forest
pmml(veteran.forest)
Run the code above in your browser using DataLab