getCutoffAutoKM.list {Coxmos}

getCutoffAutoKM.list

Description

Run the function "getCutoffAutoKM" for a list of models. More information in "?getCutoffAutoKM".

Usage

getCutoffAutoKM.list(lst_results)

Arguments

lst_results

List of lists. Result of getAutoKM.list() function.

Value

A list where each element corresponds to the result of the getCutoffAutoKM function applied to each model in the input list. The structure and content of each element will be consistent with the output of the getCutoffAutoKM function.

Author(s)

Pedro Salguero Garcia. Maintainer: [e-mail]

References

Kaplan EL, Kaplan EL, Meier P (1958). “Nonparametric Estimation from Incomplete Observations.” Journal of the American Statistical Association. doi:10.1007/978-1-4612-4380-9_25, https://link.springer.com/chapter/10.1007/978-1-4612-4380-9_25.

Examples

data("X_proteomic")
data("Y_proteomic")
set.seed(123)
index_train <- caret::createDataPartition(Y_proteomic$event, p = .5, list = FALSE, times = 1)
X_train <- X_proteomic[index_train,1:50]
Y_train <- Y_proteomic[index_train,]
X_test <- X_proteomic[-index_train,1:50]
Y_test <- Y_proteomic[-index_train,]
splsicox.model <- splsicox(X_train, Y_train, n.comp = 2, penalty = 0.5, x.center = TRUE,
x.scale = TRUE)
splsdrcox.model <- splsdrcox(X_train, Y_train, n.comp = 2, penalty = 0.5, x.center = TRUE,
x.scale = TRUE)
lst_models = list("sPLSICOX" = splsicox.model, "sPLSDRCOX" = splsdrcox.model)
lst_results = getAutoKM.list(type = "LP", lst_models)
getCutoffAutoKM.list(lst_results)