days_to_death <- floor(runif(200, 1, 1000))
vital_status <- c(rep("Dead",200))
groups <- c(rep(c("G1","G2"),c(100,100)))
df <- data.frame(days_to_death,vital_status,groups)
TCGAanalyze_survival(df,clusterCol="groups")
## Not run:
# clinical <- TCGAquery_clinic("gbm","clinical_patient")
# TCGAanalyze_survival(clinical,"gender", filename = "surv.pdf", legend="Gender")
# ## End(Not run)
Run the code above in your browser using DataLab