fit <- phregr(data = liver, time = "Time", event = "Status",
covariates = c("log(Bilirubin)", "log(Protime)",
"log(Albumin)", "Age", "Edema"),
ties = "breslow")
zph <- zph_phregr(fit, transform = "log")
zph$table
Run the code above in your browser using DataLab