R/print.R2.R

In tagteam/pec: Prediction Error Curves for Risk Prediction Models in Survival Analysis

##' @export
print.R2 <- function(x,...){
  cat("\nTime-dependent explained variation:\n\n 1- Brier(model)/Brier(reference)\n\nReference model: ",attr(x,"reference"),"\n\n")
  print.listof(x,...)
}