R/print.ConfScoreSurv.R

Defines functions print.confScoreSurv

##' @export
print.confScoreSurv <- function(x,...){
  overall <- do.call("cbind",lapply(x$models,function(m){
    colMeans(m$score)
  }))
  mm <- cbind(x$times,overall)
  colnames(mm) <- c("times",names(x$models))
  rownames(mm) <- rep("",NROW(mm))
  cat("\nPopulation average confidence score:\n\n")
  print(mm)
}

Try the pec package in your browser

Any scripts or data that you put into this service are public.

pec documentation built on April 11, 2023, 5:55 p.m.