# \donttest{
data_object <- list("full_data" = full_data, "survival_time" = survival_time,
"survival_event" = survival_event, "case_tag" = case_tag)
class(data_object) <- "data_object"
geneSelection_object <- geneSelection(data_object, gen_select_type ="top_bot",
percent_gen_select = 10)# }
Run the code above in your browser using DataLab