|
...
|
...
|
@@ -9,7 +9,6 @@ rfsrcTrainInterface <- function(measurementsTrain, survivalTrain, mTryProportion
|
|
9
|
9
|
# Surv objects store survival information as a two-column table, time and event, in that order.
|
|
10
|
10
|
bindedMeasurements <- cbind(measurementsTrain, time = survivalTrain[, 1], event = survivalTrain[, 2])
|
|
11
|
11
|
mtry <- round(mTryProportion * ncol(measurementsTrain)) # Number of features to try.
|
|
12
|
|
- browser()
|
|
13
|
12
|
randomForestSRC::rfsrc(Surv(time, event) ~ ., data = as.data.frame(bindedMeasurements), mtry = mtry,
|
|
14
|
13
|
var.used = "all.trees", importance = TRUE, ...)
|
|
15
|
14
|
}
|
