if (FALSE) { # requireNamespace("pmartRdata", quietly = TRUE)
if (FALSE) {
library(MSomicsSTAT)
library(OvarianPepdataBP)
# Basic analysis without covariates
attr(tcga_ovarian_pepdata_bp, "survDF") <- list(t_death = "survival_time",
ind_death = "vital_status")
sfit <- fit_surv(tcga_ovarian_pepdata_bp)
plot(sfit)
# Add some covariate information
attr(tcga_ovarian_pepdata_bp, "survDF") <- list(
t_death = "survival_time",
ind_death = "vital_status",
covariates = "g__initial_pathologic_diagnosis_method_g1"
)
sfit <- fit_surv(tcga_ovarian_pepdata_bp)
plot(sfit, col = c(1, 2))
}
}
Run the code above in your browser using DataLab