if (FALSE) { # requireNamespace("pmartRdata", quietly = TRUE)
if (FALSE) {
library(OvarianPepdataBP)
attr(tcga_ovarian_pepdata_bp, "survDF") <- list(t_death = "survival_time",
ind_death = "vital_status")
# No percent is provided so the entire object is returned
summary_km(tcga_ovarian_pepdata_bp)
# Percent is provided so corresponding time point is returned
summary_km(tcga_ovarian_pepdata_bp, .4)
}
}
Run the code above in your browser using DataLab