if (FALSE) { # requireNamespace("pmartRdata", quietly = TRUE)
if (FALSE) {
library(MSomicsSTAT)
library(OvarianPepdataBP)
attr(tcga_ovarian_pepdata_bp, "survDF") <- list(t_death = "survival_time",
ind_death = "vital_status")
plot_km(omicsData = tcga_ovarian_pepdata_bp)
# Add covariates to "survDF" attribute
attr(tcga_ovarian_pepdata_bp, "survDF") <- list(
t_death = "survival_time",
ind_death = "vital_status",
covariates = "age_at_initial_pathologic_diagnosis"
)
plot_km(omicsData = tcga_ovarian_pepdata_bp)
}
}
Run the code above in your browser using DataLab